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Guida all’input dei programmi sullo ZX Spectrum 


Le "parole" comprese tra parentesi groffe indicano i caratteri grafìa pre 
definiti (G). il tasto (numero seguente la G). la necessità di premere il tasto 
insieme a CAPS SHIFT (eventuale S precedente la G) e il numero di ripeti 
ztoni del tosto richieste (eventuale numero all'inizio della "parola"). I ca 
ralleri grafia definiti dal programma sono invece indicati da lettere maiu¬ 
scole (corrispondenti al tasto da usare) sottolineate 


Quando leggete Premete 


Vedrete 


{Gl} 

{G2} 


eh 

ITTI 


(G3) 


eh 


(G4 ) 
(G5) 
(G6) 
(G7) 


e_u 

EU 

eh 


(G8) 


le 1 1 


{SG1} 





■ i Ars 

1. jtl'H_1 

LL9 

(SG2 ) 

S« non MCI* 

8 * m modo 

L #n«ra'rr. 

I « APS ] 

[ \HI »1 | 

EH 

( SG3 ) 

contempo'* 

1 1 

EH 

(SG4) 

(SG5) 

( SG6 ) 

n* «meni e 

caps SHirr 

* 9 

1 . Am 1 

I \Mirr 1 

EH 


Il lAm I 

1 IH1H _| 

rr ti 




1 * Af% 1 

I Mtin | 

EH 

(SG7 ) 


t APS I 

1 NMir? 1 

Eli 

(SG8) 


f * APS 1 

I NHIPT | 

MI 



■ 

I 

% 







S* «otri* 
•mi ir d»i 
modo C. 


Quando leggete Premete 


Vedrete 


A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

O 

P 

Q 

R 

S 

T 

U 


S* !>0*> *'«t* 
g.» in modo 
O. Minateci 
mIukoihM 
contempo'* 
ricamante 
CAPS SMIfT 
e 9 


Simbolo grafico 
definito nel 
programma in uso. 


S( dotate 
uMnr MI 
motfo G. 
»<*•*<<-aie 9 


Guida per l’input dei programmi versioni VIC tO e €64 


Notate che I listati contengono “parole " rac¬ 
chiuse tra parentesi graffe { ). Tali parole 
rappresentano caratteri di controllo come 
mostrato nel sottostante riquadro. Se sono 
precedute da un numero, questo indica il nu¬ 
mero di volte che quel tasto deve essere pre¬ 
muto. Se il simbolo è sottolineato deve essre 
premuto contemporaneamente a SHIFT 
mentre se è racchiuso da [( )] deve essere 


premuto contemporaneamente al tasto 
COMMODORE. Inoltre, se tra parentesi si 
trova un carattere alfabetico "solitario", 
questo dovrà essere premuto contempora¬ 
neamente al tasto CONTROL. 

Con questo sistema di codifica, sarà molto 
più agevole copiare i listati senza faticose e e 
dubbie interpretazioni di caratteri grafici e di 
controllo del cursore o dei colori. 


{CLR} 

(HOME} 
(SU) " 
(GIU 1 } 
(SIN) 
(DES) 

{RVS ) 
(OFF) 
(BLK) 
(WHT) 
(RED) 


SHlH |C(B/HOWt 
gC(B/HOMt 


ClitillJ 


[ SMIH 


=>] 

mm 




t= CBS» =}] 


□ 



{CYN} 
{PUR} 
{GRN} 
{BLU} 
{YEL} 

I<1>) 
[< 2 >] 
[< 3 > ] 
[<4>] 
[<5>] 
[< 6 >] 


[ CIBI 

| 4 j 

■■1 


[ CIBI 

Ibi 

■■1 

un 

[ CTBt 







lei 


30 

30 

30 

30 

30 

30 



[<7>J 

i 

I<8>] 

ca 

{FI} 

□ 

{ F2 } 

m 

{ F3 } 

□ 

{ F4 } 

15 

{ F5 } 

S 

{ F6 } 

ol 

{ F 7 } 

E 

■1 

{ F 8 } 


30 

□ 

30 

■ ■ 
■ ■ 

m 


ce 

SI 

w 

■ 

m 

12 

CB 

II 

ni 

a 

re 

li 

no 
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con disco 


Chissà quante volte avete desiderato che i no¬ 
mi dei programmi che appaiono quando date 
il comando CATALOG siano logicamente rag¬ 
gruppati in un certo ordine: ad esempio i pro¬ 
grammi Applesoft (A) all'inizio, i file di tipo text 
(T) subito dopo ed infine tutti i file binari (B). 
Tutto ciò però non è possibile perché i nomi 
dei file che appaiono col comando CATALOG 
sono nell'ordine col quale sono stati memoriz¬ 
zati. 


Con questo programma potrete scambiare tra 
di loro l'ordine di due file, di qualsiasi tipo, for¬ 
mando così dei raggruppamenti omogenei di 
programmi a vostro piacere. Vi verrà richiesto 
il nome del primo e del secondo file e dopo po¬ 
chi istanti il cambiamento sarà effettuato. 
Da notare che non vengono effettivamente 
scambiati i file ma solo le etichette sui settori 
del disco riservati alla directory. 


135 TEXT : HOME j PRINT CHR* (4 
);“CATALOG": PRINT 

140 TRK = 17:RW = IsLOC = 8192: REM 
*2000 

150 PGKE 763,32: PGKE 769,227: POKE 
770,3: PGKE 771,76: POKE 772 
,217: PGKE 773,3 

160 POKE 47084,TRK: POKE 47083,0 
: POKE 47091,0: PGKE 47092,R 
UJ 

170 PRINT "QUESTO PROGRAMMA PUÒ' 
SCAMBIARE DUE PRINT "NOM 
I QUALSIASI NEL VOSTRO CATAL 
OG. " 

180 FOR SEC = 1 TO 15:L0C = LOC ♦ 
256: POKE 47085,SEC: POKE 47 
088,LOC - 1NT < LOC / 256> « 
256: POKE 47089, INT <LOC / 

256.) : CALL 768: NEXT : REM R 
EAD‘SECTORSM-15 

190 FOR F = 1 TO 2: PRINT : PRINT 
"NOME FILE NR. "|F; : INPUT ■ 

:* ; F l » ( F ) 

200 FOR I 3 1 TO 30 :FI*(F > «= FI» 

<F) ♦ " “: NEXT : REM AGGIU 
NGE DEGLI SPAZI ALLA FINE DE 
L NOME 

210 A* = FOR X = 1 TO 30 :A* = 

A* ♦ CHR* < ASC ( MID* < FI * 

< F > ,X,1)) ♦ 128): NEXT :Fl*( 

F) = A*: NEXT F: REM AGGI UN 
GE 128 AD OGNI VALORE ASCII 
DEL NOME 

220 FOR F = 1 TO 2: PRINT : PRINT 
"RICERCA NEL SETTORE:"; 

230 FOR SEC = 15 TO 1 STFP - 1: 
PRINT SECLOC = 8192 ♦ 

256 * SEC 

240 FOR X = LOC ♦ 14 TO LOC ♦ 22 
4 STEP 35: IF CHR* ( PEEK ( 

X)) < > LEFT* ( F I * < F ),1) THEN 


260: REM GUARDA IL PRIMO CA 
RATTERE 

250 FOR Y = / M TO X ♦ 29: IF 
CHR* ( PEEK <Y)) = MID* <F 
I * < F > , Y - X ♦ 1,1) THEN NEXT 
: GOTO 280: REM NOME TROVAT 
0 NEL CATALOG 

260 NEXT X 

270 NEXT SEC: PRINT : PRINT "NOM 

E NR. ";F;" NON TROVATO"; CHR* 

C7): PRINT : GOTO IVO 

280 PRINT : PRINT "NOME NR. ";F; 

" TROVATO NEL SETTORE ";SEC: 

SEC < F ) *= SEC : LGC( F > = Y - 33 

290 NEXT F: PRINT 

300 LOC = 24576: FOR X = 0 TO 34: 

POKE LOC ♦ X, PEEK (LOC(l) ♦ 
X): POKE LOC(l) ♦ X, PEEK <L 
OC< 2) ♦ X): POKE L0C<2> ♦ X, 
PEEK (LOC ♦ X): NEXT : REM 
SCAMBIA 1 DUE NOMI 

305 PRINT : PRINT : PRINT "MODIF 
ICA IN CORSO ..." : FOR I = 1 
TO 999: NEXT 

310 RLJ = 2: POKE 47092, RU : FOR F = 

1 TO 2: POKE 47085,SEC(F): POKE 
47089, INT ((8192 ♦ SEC(F) * 
256) / 256): CALL 768: NEXT 
: REM SCRIVE I SETTORI SUL 
DISCO 

320 PRINT CHR* (4>;"CATALOG" 


Aspettiamo 
i tuoi lavori 
migliori! 
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Skunk 


con paddle 


Skunk è un gioco basato sui dadi e viene gio¬ 
cato da molti anni. 

Il gioco può essere praticato da 2 a 4 giocato¬ 
ri, uno dei quali può essere l'Apple stesso. 
Lo scopo del gioco è semplice: raggiungere un 
determinato punteggio totale prima che que¬ 
sto venga raggiunto dagli altri concorrenti. Il 
problema è che se fate una coppia di ‘ I ' 


(skunks) dovrete ripartire da zero. Un solo 
skunk annulla il punteggio di una singola gio¬ 
cata invece che dell'intera partita. 

Vincerà soltanto chi avrà rischiato di più ma... 
attenzione chi rischia troppo perderà tutto. 
Quanto potrete sfidare la fortuna? Provate que¬ 
sto programma e lo saprete. 


10 DEF FN R<X) = INT < RND <1> 

* X) 

40 DIM TSC< 4) 

45 GOSUB 22100 
50 TEXT s HOME 

70 FOR T * 1 TO 4:TSC<T) = 0: NEXT 
T 

100 VTAB 5: HTAB 17:PNT* « *SKUN 
K": GOSUB 1Ó020 
150 FOR A * 1 TÙ 600: NEXT A 
200 PNT* » “QUALE PUNTEGGIO PREFE 
RISCI “: GOSUB 16020 
210 INPUT SC 

230 PNT* * "QUANTI GIOCATORI <2-4 
)? •: GOSUB 16020 
240 INPUT NG 

245 IF NG > 4 OR NG < 2 THEN 230 

260 PNT* = "NOME 1* GIOCATORE GOSUB 
160 20 

265 INPUT Pi*: IF LEN <P1*) > 9 
THEN PI* = LEFT* <P1*,9) 

270 PNT* * "NOME 2* GIOCATORE ": GOSUB 
16020 

275 INPUT P2*: IF LEN <P2*) > ? 

THEN P2* = LEFT* <P2*,9) 

280 IF NG = 2 THEN GOTO 400 
290 PNT* = “NOME 3* GIOCATORE ": GOSUB 
16020 

300 INPUT P3*: IF LEN <P3*) > 9 
THEN P3* = LEFT* <P3*,9) 

310 IF NG = 3 THEN GOTO 400 
320 PNT* = “NOME 4‘ GIOCATORE GOSUB 
16020 

330 INPUT P4*: IF LEN <P4*) > 9 
THEN P4* = LEFT* <P4* p 9) 

400 GR 
450 HOME 

455 X * 1 :RSC = 0:G = 1 
460 GOSUB 21000 
500 AP - 0 :G * 1 


550 

IF 

X 

*= 

1 

THEN 

GOSUB 

10000 

560 

IF 

X 

= 

2 

THEN 

GOSUB 

10100 

570 

IF 

X 

ss 

3 

THEN 

GOSUB 

10200 

580 

IF 

X 

= 

4 

THEN 

GOSUB 

10300 


620 GOSUB 13000 

700 IF AP » 1 THEN GOSUB 11000 


720 

IF AP « 1 THEN GOTO 835 


800 

PL » INT < PDL <0> / 25) 


810 

POKE 34,22: VTAB 23 


815 

HTAB 20: PRINT "FORZA DI 
0- •;PL ; " " 

TIR 

830 

IF PEEK < - 16287) < = 

THEN GOTO 800 

127 

835 

IF PL * 0 THEN 1100 


850 

GOSUB 12000 


860 

RSC » RSC ♦ DI ♦ D2 


880 

IF DI * 1 OR D2 = 1 THEN 
= 0 

RSC 

890 

IF DI = l AND D2 a \ THEN 

C » TSC<.X) 

RS 

892 

PP - 50:DD = 127 


900 

IF DI « 1 OR D2 * 1 THEN 
22000 

GOSUB 

905 

PP » 30: Di) = 255 


910 

IF DI - i AND D2 » i JHEN 
22Q00 

GOSUB 

915 

IF DI = 1 AND D2 = 1 AND 
< X) = 0 THEN GOTO 1300 

TbC 

920 

IF DI = 1 AND D2 = 1 THEN 
- 1 

IF DI = 1 AND D2 = 1 THEN 
1100 

G = 

930 

GOTO 

958 

POKE 34,23 


959 

VTAB 24: PRINT 


9o0 

VTAB 24: HTAB 1: PRINT "PUNT 


EGGIO TIRO = - ;RSC;" 

ALE * -;TSC<X) ♦ RSC; 

TOT 

970 

IF Di = 1 OR D2 = 1 THEN 
1300 

GOTO 

980 

IF DI < >1 AND D2 < > 

GOTO 1480 

1 THEN 

990 

GOTO 1300 



1100 POKE 34,21 

1101 PP = 15 :DD = 5 

1102 FOR T = 1 TO RSC 

1103 IF R3C = 0 THEN GOTO 1480 
1105 TSC<X) = TSCCX) ♦ G 

1107 FOR 0 = 1 TO 15: NEXT 0 

1108 VTAB 22: HTAB 4 ♦ <10 * <X - 
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1)): PRINT - 

1109 GOSUB 22000 

1110 FGR 0 * 1 Tù 15: NEXT 0 
1113 VTAB 22: HTAB 4 ♦ <10 * <X - 

1)): PRINT TSC<X> 

1115 NEXT T 

1120 G * 1 

1300 X * X ♦ 1 

1310 IF X > NG THEN X - 1 

1315 FOR T * 1 TO 1200: NEXT T 

1320 IF TSC<X> > = SC THEN GOSUB 
14000 

1321 INVERSE 

1322 POKE 34,23: VTAB 24: HTAB 1 

1323 PRINT " TURNO PROSSIMO 

GIOCATORE 

1324 NORMAL 
1330 RSC = 0 

1480 FOR T = 1 TO 500: NEXT T 
1500 GOTO 500 
2000 END 

10000 IF "APPLE" = P1S THEN AP = 

1 

10030 RETURN 

10100 IF "APPLE" = P2* THEN AP = 

1 

10130 RETURN 

10200 IF "APPLE" = P3* THEN AP * 

1 

10230 RETURN 

10300 IF "APPLE" = P4* THEN AP * 

1 

10330 RETURN 
1 1000 PL * FN R< 9) ♦ 1 
11004 MK = 0 
11010 TR = FN R< 4) 

11015 IF RSC * 0 THEN GOTO 1106 
5 

11020 FOR T = 1 TO 4 
11025 IF TSC<T) > = SC THEN GOTO 

11032 

11030 NEXT T 

11031 GOTO 11050 

11032 IF MK < * TSC(T) THEN MK = 

TSC(T) 

11035 GOTO 11030 

11050 IF TSCCX) ♦ RSC < ■ MK AND 

MK < >0 THEN GOTO 11.065 

11055 IF MK < >0 AND TSC(X) ♦ 

RSC > MK THEN PL = 0 
11057 IF MK * 0 AND TSC(X) ♦ RSC 
> = SC THEN PL * 0 

11060 IF TR * 0 THEN PL = 0 
11065 POKE 34,22: VTAB 23 
11067 HTAB 20: PRINT "FORZA DEL 
TIRO* ";PL;" " 

11070 RETURN 

12000 FOR R = 1 TO PL 

12050 UU * FN R< 2) 

12060 DI « FN R<6> ♦ 1:D2 * FN 
R< 6) ♦ 1 

12070 FOR K = 1 TO 2 

12071 PP = 1 :DD * 3: GOSUB 22000 
12075 IF UU = 0 THEN 12085 
12077 D - D2:DL * 22: GOSUB 12220 
12080 GOTO 12100 

12085 D = DI :DL = 4 : GOSUB 12200 


12100 

IF D « 

1 THEN 

GOSUB 

12250 

12110 

IF D - 

2 THEN 

GOSUB 

12300 

12120 

IF D > 

3 THEN 

GOSUB 

12350 

12130 

IF D - 

4 THEN 

GOSUB 

12400 

12140 

IF D * 

5 THEN 

GOSUB 

12450 

12150 

IF D - 

6 THEN 

GOSUB 

12500 

12155 

12170 

12175 

12180 

12185 

GOTO 12185 

NEXT K 

NEXT R 

RETURN 

IF UU = 1 THEN 

GOTO 

12192 

12187 

12189 

12192 

12200 

12205 

IF UU * 0 THEN UU » 1 

GOTO 12170 

UU * 0: GOTO 12170 

COLOR* 15 

FOR Y - 10 TO 30: HLIN 4,1 


7 AT Y: NEXT Y 
12210 RETURN 
12220 COLOR* 15 

12225 FOR Y = 10 TO 30: HLIN 22, 

35 AT Y: NEXT Y 
12230 RETURN 
12250 COLOR* 0 

12255 PLOT DL ♦ 3,15: VLIN 19,20 

AT DL ♦ 3: PLOT DL ♦ 3,26: VLIN 
15,16 AT DL ♦ 4: PLOT DL ♦ 4 
,19: VLIN 24,26 AT DL ♦ 4 
12260 VLIN 13,26 AT DL ♦ 5: VLIN 

14.26 AT DL ♦ 6: VLIN 23,25 AT 
DL ♦ 7 

12265 VLIN 16,24 AT DL ♦ 8: PLOT 

DL ♦ 9,15: PLOT DL ♦ 9,23: PLOT 
DL ♦ 10,15 

12267 PLOT DL ♦ 4,23 
12270 VLIN 17,22 AT DL ♦ 10: PLOT 
DL ♦ 11,16 

12275 COLOR* 2: PLOT DL ♦ 4,14 
12280 RETURN 
12300 COLOR* 0 

12315 VLIN 13,15 AT DL ♦ 2: VLIN 

25.27 AT DL ♦ 10 

12320 VLIN 13,15 AT DL ♦ 3: VLIN 

25,27 AT DL ♦ 11 
12330 RETURN 
12350 COLOR- 0 

1236Ù VLIN 13,15 AT DL + 10: VLIN 

19,21 AT DL ♦ 6: VLIN 25,27 AT 
DL ♦ 2 

12365 VLIN 13,15 AT DL ♦ 11: UL1N 

19,21 AT DL ♦ 7: VLIN 25,27 AT 
DL ♦ 3 

12380 RETURN 

12400 GOSUB 12300: GOSUB 12350 
12410 COLOR* 15 

12420 VLIN 19,21 AT DL ♦ 6: VLIN 

19,21 AT DL ♦ 7 
12430 RETURN 

12450 GOSUB 12300: GOSUB 12350 
12460 RETURN 
12500 GOSUB 12400 
12510 COLOR* 0 
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12520 VLIN 19,21 AT DL ♦ 2: VLIN 
19,21 AT DL ♦ 10 

12530 VLIN 19,21 AT DL ♦ 3i VLIN 
19,21 AT DL ♦ 11 
12550 RETURN 
13000 COLOR= 4 
13020 HLIN 0,39 AT 39 


13030 COLOR* 

13 




13050 IF 
39 

X * 

1 

THEN 

HLIN 

3,5 AT 

13060 IF 
39 

X * 

2 

THEN 

HLIN 

13,15 

AT 

13070 IF 
39 

X * 

3 

THEN 

HLIN 

23,25 

AT 

13080 1F 

39 

X = 

4 

THEN 

HLIN 

33,35 

AT 


13100 COLOR* 4 
13300 RETURN 
14000 TEXT : HOME 
14010 MJ = 0 
14020 FOR T = 1 TO 4 
14030 IF MJ < TSC(T) THEN GOTO 
14200 

14050 NEXT T 

14100 PNT* = -RISULTATO FINALE : 

M : G0SU8 16020 
14110 PRINT : PRINT 
14120 PRINT PI*;- = -;TSC<1) 
14125 PRINT s PRINT P2*;“ « -;TS 
C<2) 

14127 IF NG = 2 THEN GOTO 14150 

14130 PRINT s PRINT P3S;“ * --TS 

C< 3 > 

14135 IF NG = 3 THEN GOTO 14150 

14140 PRINT x PRINT P4* ; • «= - ;TS 
C< 4 ) 

14150 PRINT : PRINT 
14160 PRINT “IL VINCITORE HA TOT 
ALI ZZATO PUNTI “;TSC(MN> 
14165 IF MN * 1 AND PI* * “APPLE 
“ THEN GOTO 14180 


14170 

IF MN = 2 AND 

P2S = 

“APPLE 

M 

THEN GOTO 14180 


14175 . 

, IF MN = 3 AND 

P3* * 

-APPLE 

n 

THEN GOTO 14180 


14177 

IF Iti * 4 AND 

P4* * 

-APPLE 

■ 

THEN GOTO 14180 


14179 

GOTO 14184 



14180 

F * FN R(4): 

IF F * 

0 THEN 


GOSUB 17000 



14181 

IF F = l THEN 

GOSUB 

17100 

14182 

IF F * 2 THEN 

GOSUB 

17200 

14183 

IF F * 3 THEN 

GOSUB 

17300 

14184 

PRINT :PNT* * 

“ANCORA (S/N 

> 

? : - : GOSUB 

1 6020 x 

INPUT 

A* 



14186 

IF “S* « A* THEN GOTO 50 

14190 

END 



14200 

MJ » TSC<T>:MN 

= T: GOTO 14 


050 

16020 PP = 3:DD = 3 

16050 FOR T « 1 TO LEN <PNTS> 

16060 IF T - LEN <PNT*> THEN. GOTO 
16080 


16070 PRINT MID* <PNT*,T,i>j 

16075 GOTO 16090 

16080 PRINT MID* <PNT*,T,1> 

16090 GOSUB 22000 
16095 NEXT T 
16100 PRINT 
16300 RETURN 

17000 PRINT :PNT* * -GRAZIE PER 
L'ECCITANTE GARA,-: GOSUB 16 
020 

17010 PNT* « “DOBBIAMO GIOCARE FtfsJ 
C0RA...-J GOSUB 16020 
17030 RETURN 
17040 RETURN 

17100 PRINT :PNT* = "EH EH EH, D 

EVO AMMETERE DI GIOCARE •x GOSUB 
16020 

17110 PNT* - -MOLTO BENE A SKUNK. 

E' ARDUO BATTERMI.-i GOSUB 1 
6020 

17200 PRINT iPNT* » "TI HO BATTU 
TO. GIOCHI ANCORA? - s GOSUB 1 
60 20 

17210 PNT* « “NON SEI UN CATTIVO 
GIOCATORE.-: GOSUB 16020 
17240 RETURN 

17300 PRINT :PNT* = "COSA NE DIC 

1 DI UN'ALTRA? MI E' ": GOSUB 
16020 

17310 PNT* = "PIACIUTA MOLTO QUES 
TA PARTITA, "x GOSUB 16020 
17330 RETURN 
21000 COLOR* 4 
21010 FOR T * 0 TO 39 
21020 VLIN 0,39 AT T 
21030 NEXT T 

21050 VTAB 21i HTAB 5 - < LEN <P 
1*) / 2)i PRINT PI* 

21060 VTAB 21: HTAB 15 - < LEN < 

P2*> / 2)i PRINT P2* 

21070 IF NG - 2 THEN GOTO 21150 

21080 VTAB 21x HTAB 25 - < LEN < 

P3*> / 2)x PRINT P3* 

21090 IF NG * 3 THEN GOTO 21150 

21100 VTAB 21x HTAB 35 - < LEN < 

P4*> / 2): PRINT P4* 

21150 VTAB 23: HTAB 4x PRINT "Gl 
OCO* - ;SC 
21180 RETURN 

22000 POKE 768,PPi POKE 769,DDx CALL 
770: RETURN 

22100 FOR ZZ * 770 TO 790: READ 
XX: POKE ZZ,XX x NEXT ZZ 
22110 RETURN 

30000 DATA 173,48,192,136,208,5, 
206,1,3,240,9,202,208,245,1 7 
4,0.3,76,2.3.96 


Ci vediamo 
venerdì prossime 
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4ii TI'99/4A 


Archivio Nastri & Disi 

ehi 

i 



S/ trova in circolazione una marea di program- 
mini e listati vari dedicati all'archiviazione di 
indirizzi, numeri di telefono e simili; ma chi co¬ 
me me lavora in una radio, o chi possiede una 
discreta raccolta di registrazioni o incisioni, avrà 
senz'altro sentito la necessità di organizzare 
meglio la propria Disco/Nastroteca, o perlome¬ 
no di tenerne un registro, tanto per sapere se 
il disco dei Poco l'ho prestato ad Andrea o a 
Rita e se a Paola ho prestato la cassetta con 
Jackson Browne o la “pizza" di Country. 
Bene , queste sono solo alcune delle innumere - 


io rem ******************* 

20 REM * ARCHIVIO * 

30 REM * NASTRI & DISCHI * 

40 KEM * BY erg * 

SO REM ******************* 

60 REM TI- 99 BASIC 

70 CA1.L CLEAR 
80 CALL SCREEN(2) 

83 FOR COL=1 TO 16 
85 CALE COLOR(COL,12,2) 

90 NEXT COL 

100 CALL COLOR(2,10,2) 

190 OPTION BASE 1 

200 DIM As(lOO),B$(100),C$(100), 

D$ (100) ,E$(100) , F$(10 0) ,G$(100) , 

F(100) 

210 GOTO 570 

220 CALL KKY(0,A,B) 

230 IF 11*0 THEN 220 

240 A=A- 4 8 

250 IF A< 0 THEN 2 20 

260 RETURN 

270 CALI. CLEAR 

2bO IF SOI THEN 370 

290 OPEN | 1 : "CSI" , INTERNAI., OUTPU 

T,FIXED(128) 

300 PRINT #1:K$,C 
310 FOR X=1 TO C 

320 PRINT : :"STO SCRIVENDO IL DA 
TO": :"NUMERO"; X :"...ATTENDERE ": 
• 

330 PRINT #1:A$(X),B$(X),C$(X),D 
$(X),E$(X),F$(X),G$(X),F$(X) 

340 NEXT X 
350 CLOSE #1 
360 CALL CLEAR 


voli situazioni che la digitazione di questo bre¬ 
ve listato (scritto in Basic semplice proprio per 
sfruttare al meglio le capacità di memoria del 
nostro TI-99) può risolvere senza bisogno di al¬ 
cuno spiegazione, visto che non dovrete far al¬ 
tro che rispondere alle varie domande sul vi¬ 
deo, cercando di gestirvi lo schedario come me¬ 
glio crederete. 

Se poi possedete i floppy, le capacità del pro¬ 
gramma cresceranno incredibilmente con un 
paio di modifiche minime. 

Buon lavoro! 


370 RETURN 
380 CALL CLEAR 
390 IF S s 1 THEN 520 
400 OPEN * 1 :"CSI",INTERNAL,INPUT 
, FIXED ( 1 2tì)‘ 

410 INPUT * J :K$ ,C 

420 PRINT : : "... 

-"SCHEDARIO : " ; K$ 

430 PRINT :"DATI INSERITI :";C:: 

tl M . . 

440 FOR X^l TO C 

450 PRINT ::"LETTURA DATO NUMERO 
"; X :"...ATTENDERE.": : 

460 INPUT 11 :A$(X) ,B$(X) ,C$(X) ,D 
$($)(X),F$(X),C$(X),F$(X) 

470 NEXT X 
480 X=X-1 
490 CLOSE #1 
500 CALL CLEAR 
510 S-1 
520 RETURN 
530 CALL CLEAR 

540 PRINT ".-.-. 

-ARCHIVIO NASTRI & DIS 

CHI" 

550 PRINT "---. 

_ m .... . 

560 RETURN 
570 GOSUB 530 

580 PRINT "0 FINE LAVORO E REG.D 
ATI"::"1 CREAZIONE SCHEDARIO":: 

590 PRINT "2 AGGIORNAMENTO SCHED 
ARIO"::::::::::: 

600 GOSUB 220 

610 IF A>2 THEN 600 

620 IF A-0 THEN 2220 


8 
























630 IF Z = 1 THEN 650 

64n IF A-1 THEN 760 

650 IF A 5 1 THEN 600 

660 Z = 1 
670 GOSUB 530 

680 PRINT "0 QUADRO PRINCIPALE" 
1 INSERIMENTO DATI":: 

690 PRINT "2 VARIAZIONE DATI":: 
"3 CANCELLAZIONE DATI ":: 

700 PRINT "4 VISIONE ELENCO DAT 
I": : : : : : 

710 GOSUB 220 
720 IF A=0 THEN 570 

73o IF A>4 THEN 710 

740 CALL CLEAR 

750 ON A GOTO 1180,1220,1690,185 

0 

760 REM *** INIZIO PROCEDURA C 
REAZIONE *** 

770 CALL CLEAR 

780 INPUT "NOME SCHEDARIO?":K$ 
790 X = 1 
800 F(X)= X 

810 PRINT "-- 

-" : ; "DATO N. " ; X 

820 PRINT "...- 

-» ; "AUTORE/ESECUTOKE": : 

8 30 INPUT A$.( X) 

840 PRINT "- 

--";"TITOLO INCISIONE":: 

850 INPUT B$(X) 

860 IF B$(X)*"=" THEN 820 

870 PRINT "- 

- . -":"ANNO INCISIONE E DATA 

REGISTRAZIONE ": : 

880 INPUT C$ (X) 

890 IF C$ (X) » M *" THEN 840 

900 PRINT ".. 

--":"GENERE MUSICALE":: 

910 INPUT D$(X) 

920 IF D$(X)*"=" THEN 870 

93 0 PRINT "------ 

-- : "TIPO NR " : : 

940 INPUT E$(X) 

950 IF £$(X)="=" THEN 900 

'Job .‘RI NT "--- 

--S"NASTRO O DISCO?":: 

9 70 INPUT F$(X) 

980 IF F$(X)="-" THEN 930 

990 PRINT "- 

- .": "ANNOTAZIONI": : 

1000 INPUT G$(X) 

1010 IF G$(X)- " - " THEN 960 
1020 PRINT "- 


1030 PRINT : :A$(X) :B$(X) :C$ (X);" 

";E8(X) : :"TIPO SUPPORTO :";F$(X 
) :"NOTE :";G$(X) 

1 040 PRINT "--- 

..":"CONFERMI V (S/N)" 

1050 GOSUB 220 
1 060 IF A< > 3 5 THEN 990 

1 070 PRINT ".--- 

--" : "ALTRI DATI ? (S/N)" 

1080 GOSUB 220 

1090 IF A<>35 THEN 1120 

1100 X=X+1 

1110 GOTO 800 


570 

*** INIZIO 

* * * 


1120 C=X 
1130 S=1 
1140 T=1 
1150 Z=1 
1160 GOTO 
1170 REM 
INSERIMENTO 
1180 GOSUB 380 
1l90 T-1 
1200 GOTO 1100 
1210 REM * * * 

RA VARIAZIONE *** 

1220 GOSUB 380 
1230 CALL CLEAR 
1240 INPUT "CODICE 
" : Y 

1 250 IF Y< = 0 THEN 1240 
1260 IF Y>C THEN 1240 
1270 PRINT : :"DATO #";F(Y) 


PROCEDURA 


INIZIO PROCEDU 


DA VARIARE ? 


1280 PRINT "ESECUTORE :"::A$(Y): 
:"CAMBIO? (S/N)": : 

1290 GOSUB 220 

1300 IF A•35 THEN 1500 

1310 PRINT : :"TITOLO :"::B$(Y):: 

"CAMBIO? (S/N)": : 

1 320 GOSUB 220 
1 330 IF A-35 THEN 1520 
1340 PRINT ::"GENERE MUSICALE:": 
:C$(Y): :"CAMBIO? (S/N)": : 

1350 GOSUB 220 
1 360 IF A= 3 5 THEN 1540 
1370 PRINT : :"ANNO I NCISIONE/DAT 
A REC :": :D$(Y): :"CAMBIO ? (S/N)": 


1 380 GOSUB 220 

1 390 IF A= 35 THEN 1560 

1 400 PRINT : :"NOISE REDUCT.:"::E 


$(Y): :"CAMBIO? (S/N)": : 

1410 GOSUB 220 
1 420 IF A-35 THEN 1580 
1 4 30 PRINT : :"TI PO SUPPORTO:"::F 
$(Y)::"CAMBIO ? (S/N)":: 

1440 GOSUB 220 

1450 IF A-35 THEN 1600 

1 460 PRINT ::"ANNOTAZIONI :": :G$ 

(Y): :"CAMBI ?(S/N)": : 

1470 GOSUB 220 
1 480 IF A= 35 THEN 1620 
1490 GOTO 1630 

1500 INPUT "NUOVO AUTORE ? ":A$ 
(Y) 

1 1510 GOTO 1310 

1520 INPUT "NUOVO TITOLO ? ":B$ 
(Y) 

1530 GOTO 1340 

1540 INPUT "ANNO INCISIONE/DATA 
REC. ? ":C$(Y) 

1550 GOTO 1370 

1560 INPUT "VARIAZIONE GEN.MUSIC 
ALE ? ":D$(Y) 

1570 GOTO 1400 

1580 INPUT "NOISE REDUCT. ? ":E$ 
(Y) 

1590 GOTO 1430 

1600 INPUT "NUOVO TIPO SUPPORTO 
? ":F$(Y) 

1610 GOTO 1460 
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1620 INPUT "NUOVE NOTE ?":G$(Y) 

1630 PKINT :: M -- 

.." : "ALTRI DATI DA VARIA 

RE (S/N)" 

1640 GOSUtì 220 

1650 IP A-35 THEN 1230 

1660 T=l 

1670 GOTO 570 

1680 REM *** INIZIO PROCEDURA 
SPIMI NAZIONE *** 

1690 GOSUB 380 

1700 INPUT "DATO DA ELIMINARE ? 

... y 

1710 IF Y< -0 THEN 1700 
1720 IF ¥>C THEN 1700 
1730 A$(Y)= 

1740 B$(Y)« MM 
1750 C$(Y) 

1760 D$ ( Y) 

1770 E$(Y)- M " 

1780 F$(Y) 

1790 G$(Y)* MM 

1800 PKINT - 

-"ALTRI DATIDA ELIMI 

NARE (S/N) ?" 

1810 GOSUB 220 

1820 IF A-35 THEN 1700 

1830 T-» 1 

1840 GOTO 570 

1850 REM *** INIZIO PROCEDURA 
VISUALIZZAZIONE *** 

1860 GOSUB 380 
1 870 CALI- CLEAR 

1 880 PRINT "-.... 

-";" VISUALIZZAZIONE DATI 


1890 PRINT " 


1900 PRINT "0 QUADRO PRINCIPALE 
": :"1 RICERCA PER CODICE":: 

1910 PRINT "2 RICERCA PER ESECU 


TORE": :"3 VIS. TOTALE"::::::: 

1920 GOSUB 220 

1 930 IF A> 3 THEN 1920 

1 940 IP A = 0 THEN 570 

1950 ON A GOTO 1960,2020,2100 

1960 CALL CLEAR 

1970 INPUT "CODICE DA VISUALIZZA 
RE ? " : Y 

1 980 IF Y< = 0 THEN 1960 
1 990 IF Y>C THEN 1 870 
2000 GOSUB 2140 
2010 GOTO 1960 
2020 CALL CLEAR 

2030 INPUT "AUTORE DA CERCARE ? 

" : Y$ 

2040 FOR Y = 1 TO C 

2050 IF A$ (Y)< > Y$ THEN 2080 

2060 GOSUB 2140 

2070 GOTO 2020 

2080 NEXT Y 

2090 GOTO 1870 

2100 FOR Y- I TO C 

2110 GOSUB 2140 

2120 NEXT Y 

2130 GOTO 1870 

2140 CALL CLEAR 

2150 PRINT "CODICE N.";F(Y):"- 


2160 PRINT A$(Y):B$(Y) :C$ (Y);" " 
;D$(Y);" " ;E$ (Y): :"SUPP.:";F$(Y) 
:"NOTE:";GS(Y) 

2170 PRINT :"-- 

-":"PREMI 0 PER USCIRE" 

2180 PRINT "UN TASTO PER CONTINU 
ARE" 

2190 GOSUB 220 

2200 IF A=0 THEN 1850 

2210 RETURN 

2220 IF T-0 TUUN 2240 

2 2 J0 GOSUB 270 

2240 END 


Battaglia navale 


Chi di voi non ho mai, durante la barbose ore 
di interrogazione, strappato un foglio dal qua¬ 
derno a quadretti tracciandovi sopra le navi al¬ 
l'interno di un riquadro numerato per poi sfi¬ 
dare la flotta del vicino di banco nella più en¬ 
tusiasmante delle battaglie navali? 


* TI-99/4 A 


E quanti di voi non hanno mai rimpianto la pos¬ 
sibilità di ripetere le epiche sfide con il vicino 
di banco perché le circostanze erano mutate 
e non c 'era più la possibilità di avere a dispo¬ 
sizione un compagno di banco? Beh, con que¬ 
sto programma in Basic ed il vostro TI-99 avrete 
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l'occasione di riptere quelle felici esperienze con 
un avversano d'eccezione in quanto a dispo¬ 
sizione tattica e lealtà: il computer! 

Il vostro TI, infatti, non vi sbircerà mai la loca¬ 
zione delle navi e vi darà modo di rivivere sfi¬ 


de emozionanti con questo collaudatissimo gio¬ 
co; e senza altro impegno all'infuori della scel¬ 
ta delle coordinate in cui ubicare la vostra flot¬ 
ta, e dello sforzo mentale di individuazione delle 
possibili locazioni della flotta nemica. 

Buon divertimento! 


100 kem ****************** 

110 REM ‘BATTAGLIA NAVALE* 

120 REM ****************** 

130 REM TI- 99 BASIC 

160 REM 

180 RANDOMIZE 

190 CALL SCREEN(12) 

200 CALL CLEAR 

210 PRINT TAB(5)BATTAGLIA NAVA 
LE" 

220 PRINT 
230 PRINT 
240 PRINT 
250 OPTION BASE 1 
260 DIM P(10,10),0(10,10),SH(5,5 
, 2 ) 

270 CALL COLOR(14,7,1) 

280 CALL COLOR(15,11,1) 

290 CALL CHAR (96,** 000000F7F3F1 F M 

) 

300 CALL CHAR(97,"000000FFFFFFF" 

) 

310 CALL CHAR(98,"3C7EFFFFFFFFF" 

) 

320 CALL CHAR(99,"000000FFFEFCF8 
") 

330 CALL CHAR(100,"1030707070707 
070") 

340 CALL CHAR(101,"7070707070707 
070") 

350 CALL CHAR(102,"787C7E7E7F7F7 
C78") 

360 CALL CHAR(103,"7070707070701 
010 ") 

370 CALL CHAR(104,"00080403FF7F3 
F") 

380 CALL CHAR(105,"8C4C3CFEFFFFF 
F") 

390 CALL CHAR(106,"01023C3FFFFFF 
F") 

400 CALL CHAR(107,"000 204F8FFFEF 
E") 

410 CALL CHAR(108,"1030727478787 
878") 

420 CALL CHAR(109,"7C7C70717A7C7 
C7C" ) 

430 CALL CHAR(110,"7F7F787C7C7C7 
A79") 

440 CALL CHAR(111,"7078787C7C727 
110") 

450 CALL CHAR(112,"00108867FF7F3 
F" j 

460 CALL CHAR(113,"09C5C3F3FFFFF 
F") 

470 CALL CHAR(114,"000204F8FFFEF 
E") 


480 CALL 
A7C") 

490 CALL 
87C") 

500 CALL 
CI A") 

510 CALL 
F" ) 

520 CALL 
F") 

530 CALL 
E") 

540 CALL 
878") 

550 CALL 
F 7 F " ) 

560 CALL 
020 ") 

570 CALL 
F") 

580 CALL 
E") 


CHAR(115,"1030727478797 
CHAR(116,"797A7C7C7P7F7 
CHAR(117,"7C7C7A79787C7 
CHAR(118,"0000003FFF7F3 
CHAR(119,"067EFEFFFFFFF 
CHAR(120,"000000E0FCFFF 
CHAR(121,"1030787878787 
CHAR(122,"787C7C7E7E7E7 
CHAR(123,"7C7C787878703 
CHAR(124,"03030F1FFF7F3 
CHAR(125,"006060F0FFFEF 


590 CALL CHAR(126,"1030707078787 
E7F") 

600 CALL CHAR(127,"7C78787070707 
010 ") 

610 CALL CHAR(128,"FF81818181818 
1FF") 

620 CALL CHAR(136,"815E2C366A3C2 
442") 

630 CALL CHAR(144,"81667E3C3C7E6 
681 ") 

640 CALL SOUND (-3000,220,30,554, 
20,1047,20,-8,30) 

650 PRINT TAB(5);"BATTAGLIA NAVA 
LE" 

660 PRINT :"AFFONDA LE NAVI NEMI 
CHE " 

670 PRINT "PRIMA CHE l£ COMPUTER 


680 PRINT 
690 PRINT 
A CON " 
700 PRINT 
RIGLIA" 
710 PRINT 
RA. " 

720 PRINT 
NNA." 

730 PRINT 
740 PRINT 
PARA AL" 
750 PRINT 
I NATE" 

760 PRINT 
RIA.;" 


"AFFONDI LE TUE." 

S"DISPONI LA TUA FLOTT 

"LE COORDINATE DELLA G 

"DI 10X10 SULLA DEST 

"PRIMA RIGA E POI COLO 

"PER ESEMPIO: A5" 

"DOPO I PRELIMINARI, S 

"NEMICO DANDO LE COORD 

"DELLA GRIGLIA AVVERSA 







770 PRINT 
• IL” 

780 PRINT 
RIGLIA." 
790 PRINT 
LE TUE" 
800 PRINT 
810 PRINT 
E SUE." 
820 PRINT 


"QUINDI LO STESSO FARA 
"COMPUTER CON LA TUA G 
:"ESSO NON PUÒ' VEDERE 


"NAVI . " 

:"TU NON 


PUOI VEDERE L 


850 

860 

870 

880 

890 

900 


PREMI UN TASTO. 
CALL SOUND ( 1 ,-2,30) 

CALL KEY(0,K,S) 

IF S*0 THEN 860 
CALL SCREEN(6) 

CALL CLEAR 

PRINT " COMPUTER 


TU 


910 print ::::::::::::::::::::: 

920 FOR X = 5 TO 14 

930 CALL VCHAR(X,5,X+60) 

940 CALL H£HAR(X,6,128,10) 

950 CALL HCHAR(X,18,128,10) 

960 CALL VCHAR(X,17,X + 60) 

970 NEXT X 

980 FOR X* 6 TO 15 

990 CALL VCHAR(15,X+l2,X+42) 

1 000 CALL VCHAR ( 1 5 , X, X+4 2 ) 

1010 NEXT X 

1020 SI 3*"PORTAEREI" 

1 030 S2$-"CORAZZATA" 

1040 S3$-"INCROC." 

1 050 S 4 $ *"SOMMERGIB." 

1 060 S 5 $ *"F REGATA" 

1070 FOR S* 1 TO 5 

1080 ON S GOSUB 1110,1160,1210,1 

260,1310 

1090 GOSUtì 1390 

1100 GOTO 1360 

1110 PR3 *S1 $ 

1120 LE* 5 
1130 S*1 
1140 OS*0 
1 150 RETURN 
1160 PR$=S2$ 

1 1 70 LE = 4 
1180 S = 2 
1190 OS * 8 
1200 RETURN 
1210 PR$*S3$ 

1 220 LE*3 
1 230 S*3 
1240 OS*l6 
1250 RETURN 
1 260 PR3*S43 
1270 LE*3 
1 280 S*4 
1290 OS*22 
1300 RETURN 
1310 PR$*S53 
1 320 LE*2 
1 330 S*5 
1 340 OS*28 
1350 RETURN 
1360 NEXT S 

1370 CALL HCHAR(22,1,32,64) 

1380 GOTO 2240 
1390 L=LEN(PR$) 

1400 SUS$*"SCRIVI RIGA,COL. PER 
"5.STR3 (LE) fc" SPAZI" 


1410 FOR X*1 TO LEN(SUS$) 

1 420 SUI$*SEG$(SUS$,X, 1 ) 

1 430 CALL VCHAR(22,X+2,ASC(SUI $) 

) 

1440 NEXT X 

1 450 PR$ = PK$&" SPAZIO" 

1460 CALL HCHAR(23,2,32,30) 

1470 FOR X*1 TO LEN(PR$) 

1 480 SU1 3 = SEG3(PR3,X,1 ) 

1 490 CALL VCHAR(23,X+2,ASC(SUI 3 ) 

) 

1500 NEXT X 

1510 FOR X*1 TO LE 

1520 CALL HCHAR(23,20,35) 

1 530 CALL VCHAR(23,21 ,LE-X+49) 
1540 CALL KEY(0,K1,ST) 

1550 IF ST=0 THEN 1540 
1 560 IF Kl< 65 THEN 1590 
1 570 IF Kl>74 THEN 1590 
1580 GOTO 1610 
1590 CALL SOUND(100,-2,2) 

1600 GOTO 1540 

1610 CALL VCHAR(23,23,Kl ) 

1620 CALL KEY(0,KE,ST) 

1 630 IF ST*-1 THEN 1620 
1640 CALL KEY(0,K2,ST) 

1650 IF ST*0 THEN 1640 
1 660 IF K2< 48 THEN 1690 
1670 IF K2>57 THEN 1690 
1680 GOTO 1710 
1 690 CALL SOUND(100,- 2,2) 

1700 GOTO 1640 

1710 CALL VCHAR(2 3,2 4,K2) 

1720 SH(S,X,1)=Kl-64 

1730 SH(S,X,2)=K2-47 

1740 IF P(Kl-64,K2-47)>0 THEN 15 

90 

1750 P(Kl-64,K2-47)=S 
1760 NEXT X 
1770 GOSUB 5370 

1780 IF SH(S,1,1)*SH(S,2,1)THEN 
1810 

1790 X2*l 
1800 GOTO 1820 
1810 X2=2 

1 820 FOR. X3 = 1 TO LE 
1830 F=0 

1840 FOR XI=1 TO LE-X3 

1850 IF SH(S,X1,X2)=0 THEN 1910 

1860 IF SH(S,X1,X2)<SH(S,X1+1,X2 
)THEN 1910 
1870 SW=SH(S,X1,X2) 

1880 SH(S,X1,X2)-SH(S,X1+1,X2) 

1890 SH(S,X1+1,X2)*SW 

1900 F*1 

1910 NEXT XI 

1920 IF F=0 THEN 1940 

1930 NEXT X3 

1940 FOR X*1 TO LE-1 

1 950 IF SH(S,X,1)< >SH(S,X+l,1)-l 

THEN 1980 
1960 NEXT X 
1970 GOTO 2070 
1 980 FOR X* 1 TO LE-1 
1990 IF SH(S,X,2)<>SH(S,X+l,2)-l 
THEN 2020 
2000 NEXT X 
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2010 GOTO 2070 

2020 CALL SOUND(100,-2,2) 

2030 FOR X=1 TO LE 

2040 P(SH(S,X,1),SH(S,X,2))-0 

2050 NEXT X 

2060 GOTO 1460 

2070 X*S 

2080 FOR XI*1 TO 5 
2090 IF SH(X,X1,1)»0 THEN 2190 
2100 IF SH( X, 1 , 1 )*SH(X,2,1 )THEN 
21 30 

2110 OSA=1 
2120 GOTO 2140 
21 30 OSA=*0 

2140 P(SH(X,Xl,l),SH(X,Xl,2))=X 

2150 IF X>1 THEN 2180 
2160 CALL VCHAR(SH(X,X1,1)+4,SH( 
X,X1,2)+17,95+Xl+OS +((LE-1)*OSA) 
) 

2170 GOTO 2190 

2180 CALL HCHAR(SH(X,X1,1)+4,SH( 
X,X1,2)+17,95+Xl+OS+(LE*OSA)) 

2190 NEXT XI 

2200 IF X>1 THEN 2230 

2210 CALL HCHAR(SH(l,4,l)+4,SH(1 

r 4,2) +1 7 , 97+ ( ( LE - 1 ) *OSA) ) 

2220 CALL HCHAR(SH(l,5,l)+4,SH(1 
,5,2) +1 7,99+((LE-1)*OSA)) 

2230 RETURN 

2240 LE=4 

2250 S*1 

2260 GOSUB 2400 

2270 LE*3 

2280 S=2 

2290 GOSUB 2400 

2300 LE= 2 

2310 S=3 

2320 GOSUB 2400 

2330 LE*2 

2340 S = 4 

2350 GOSUB 2400 

2J60 LE=1 

2370 S=5 

2380 GOSUB 2400 

2390 GOTO 2630 

2400 RANDOMIZE 

2410 X2* INT ( RNl) * 2 ) +1 

2420 IF X2*2 THEN 2460 

2430 X*INT(RND*(10-LE))+1 

2440 Xl=INT(RND*10)+1 

2450 GOTO 2480 

2460 X=INT(RND*10)+1 

2470 Xl*INT(RND*(10-LE))+1 

2480 ON X2 GOTO 2490,2560 

2490 FOR Y*X TO X + LE 

2500 IF O(Y,X1) >0 THEN 2400 

2 510 * NEXT Y 

2520 FOR Y = X TO X + LE 

2530 O(Y,Xl)=S 

2540 NEXT Y 

2550 RETURN 

2560 FOR Y*X1 TO Xl+LE 
2570 IF O(X,Y)>0 THEN 2400 
2580 NEXT Y 

2590 FOR Y=X1 TO Xl+LE 
2600 O(X,Y)=S 
2610 NEXT Y 


2620 RETURN 

2630 Ml$="TIRO IO" 

2640 M2$»"TUO TIRO" 

2650 M3$-"SCORE" 

2660 M4$ = "COMPUTER" 

2670 M5$ 3 "-TU-" 

2680 M6$=s" * *BUCO 1**" 

2690 M7$ = "*ACQUA 1 *" 

2700 M8$="‘CENTRO" 

2710 GOTO 2800 

2720 FOR V=1 TO 7 

2730 CALL HCHAR(18,V+4,ASC(SEG$( 

Mi $,V,1) ) ) 

2740 NEXT V 

2750 RETURN 

2760 FOR V=1 TO 9 

2770 CALL HCHAR(21,V+4,ASC(SEG$( 

M2$,V,1))) 

2780 NEXT V 

2790 RETURN 

2800 FOR X=1 TO 5 

2810 CALL HCHAR(18,X+22,ASC(SEG$ 

(M3$, X , 1 ) ) ) 

2820 NEXT X 

2830 FOR X-1 TO 8 

2840 CALL HCHAR(19,X+15,ASC(SEG$ 

(M4$,X,1))) 

2850 NEXT X 

2860 FOR X=1 TO 4 

2870 CALL HCHAR(19,X+26,ASC(SEG$ 

(M5$, X , 1 ) ) ) 

2880 NEXT X 
2890 T=1 

2900 IF T*0 THEN 2930 
2910 T*0 
2920 GOTO 3200 
2930 T=1 

2940 CALL HCHAR(21,3,32,12) 

2950 CALL HCHAR(22,3,32,7) 

2960 GOSUB 2720 

2970 IF W>0 THEN 3650 

2980 RANDOMIZE 

2990 X-INT(10*RND)+1 

3000 X1 =INT(10*RND)+1 

3010 H-X 

3020 H1=X1 

3030 IF P(X,Xl)=7 THEN 2980 

3040 IF P(X,X1)*6 THEN 2980 
3050 CALL HCHAR(19,6,H+64) 

3060 CALL HCHAR(19,7,Hi+47) 

3070 IF P(X,X1)>0 THEN 4480 

3080 GOSUB 3120 

3090 GOTO 2900 

3100 P(X+l0,X1)*7 

3110 CALL HCHAR(23,1,32,32) 

3120 P(X,X1)*6 

3130 CALL SOUND(200,-6,2) 

3140 CALL HCHAR(23,1,32,32) 

3150 CALL VCHAR(X+4,Xl+17,144) 
3160 FOR Y*1 TO 8 
3170 CALL VCHAR(23,12+Y,ASC(SEG$ 
(M7$,Y,1))) 

3180 NEXT Y 
3190 RETURN 

3200 CALL HCHAR(18,3,32,12) 

3210 CALL HCHAR(19,3,32,7) 

3220 GOSUB 2760 

3230 CALL KEY(0,K1,ST) 
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3240 IF ST=0 THEN 3230 
3250 IF K1<65 THEN 3230 
3260 IF Kì >74 THEN 3230 
3270 CALL VCHAR(22,6,Kl) 

3280 CALL KEY(0,KE,ST) 

3290 IF ST*-1 THEN 3280 
3300 CALL KEY(0,K2,ST) 

3310 IF ST=0 THEN 3300 
3320 IF K2<48 THEN 3300 
3330 IF K2>57 THEN 3300 
3340 CALL VCHAR(22,7,K2) 

3350 K3=Kl-64 
3360 K4=K2-47 

3370 IF 0(K3,K4)<6 THEN 3410 
3380 CALL SOUND(50,110,2) 

3390 CALL HCHAR(2'2,6,32,7) 

3400 GOTO 3200 

3410 IF 0(K3,K4)*0 THEN 3520 
3420 CALL SOUND(200,220,2,330,2, 

440.2, -6,2) 

3430 CALL SOUND(400,110,2,220,2, 

330.2, -8,2) 

3440 CALL VCHAR(K3+4,K4+5,136) 
3450 SF=0(K3,K4) 

3460 0(K3 / K4)=7 

3470 CALL HCHAR(23,1,32,32) 

3480 FOR X2=1 TO 7 

3490 CALL HCHAR(23,13+X2,ASC(SEG 

$(M8$,X2,1))) 

3500 NEXT X2 

3510 GOTO 4620 

3520 CALL SOUND(200,-6,2) 

3530 CALL HCHAK(23,1,32,32) 

3540 O(K3, K4) *6 

3550 FOR X2=l TO 10 

3560 CALL VCHAR(23,13+X2,ASC(SEG 

$ (M6$,X2,1 ) ) ) 

3570 NEXT X2 

3580 CALL VCHAR(K3+4,K4 + 5,1 44) 
3590 GOTO 2900 

3600 CH= 1 
3610 GOTO 4670 
3620 CH=0 

3630 ON SF GOSUB 1110,1160,1210, 
1260,1310 

3640 IF DS(SF)=LE-1 THEN 3800 
3650 IF H*10 THEN 3690 1 

3660 IF P (H+l , Hi ) 07 THEN 3680 
3670 IF W>1 THEN 4280 ELSE 2080 

3680 IF H*1 THEN 3740 

3690 IF P(H-1,H1)<>7 THEN 3740 

3700 IF W>1 THEN 4280 ELSE 4080 

3710 W2*W 

3720 W=W1 

3730 GOTO 3580 

3740 IF HI=10 THEN 3780 

3750 IF P (H, Hi +1 ) 07 THEN 3770 

3760 IP W>1 THEN 4080 ELSE 4280 

3770 IF HI*1 THEN 3800 

3780 IF P(H,Hl-l)<>7 THEN 3800 

3790 IF W>1 THEN 4080 ELSE 4280 

3800 Li=INT(RND*2)+1 
3810 ON Li GOTO 3820,3900 
3820 X2*INT(RND* 2)+1 


3830 

ON X2 GOTO 3840,3870 

3840 

X2 * 1 



3850 

X 3*0 



3860 

GOTO 3970 



3870 

X2*-l 



3880 

X 3 = 0 



3890 

GOTO 3970 



3900 

X3= INT ( RND* 2 ) -fi 


391 0 

ON X3 GOTO 3920,3950 

3920 

X3 = l 



3930 

X2 = 0 



3940 

GOTO 3970 



3950 

X3--1 



3960 

X 2 = 0 



3970 

IF H+X2>10 THEN 3800 

3980 

IF H+X2K1 THEN 3800 

3990 

IF Hl+X3>10 

THEN 

3800 

4000 

IF HI+X3<1 THEN 3800 

401 0 
n 

IF P(H+X2,H1+X3)* 

6 THEN 380 

V 

4020 

n 

IF P(H+X2,Hi+X3)* 

7 THEN 380 

U 

4030 

X=H+X2 



4040 

XI= H1+X3 



4050 

IF P(X,X1)>0 

THEN 

4480 

4060 

GOSUB 3120 



4070 

GOTO 2900 



4080 

IF H-10 THEN 

4180 


4090 

H = H+1 



4100 

IF P(H,H1)=7 

THEN 

4080 

4110 

IF P(H,H1)*6 

THEN 

41 80 

4120 

X = H 



4130 

X1 =Hl 



4140 

IF P(X,Xl)>0 

THEN 

4480 

4150 

GOSUB 3120 



4160 

H*H- 1 



41 70 

GOTO 2900 



4180 

IF H*1 THEN 

4090 


4190 

H*H-1 



4200 

IF P(H f H1)*7 

THEN 

4180 

4210 

IF P(H,Hl)*6 

THEN 

4080 

4220 

X-H 



4230 

X1 *Hl 



4240 

IF P(X,X1)>0 

THEN 

4480 

4250 

GOSUB 3120 



4260 

H*H + 1 



4270 

GOTO 2900 



4280 

IF Hi *10 THEN 4380 

4290 

H1=H1+1 



4300 

IF P(H,Hl)*7 

THEN 

4280 

4310 

IF P(H,H1)*6 

THEN 

4380 

4320 

X = H 



4330 

X1 *H 1 



4340 

IF P (X,Xl)>0 

THEN 

4480 

4350 

GOSUB 3120 



4360 

Hi=H1 -1 



4370 

GOTO 2900 



4380 

IF Hi * 1 THEN 

4280 


4390 

Hl-Hl-1 



4400 

IF P(H,Hi)*7 

THEN 

4380 

441 0 

IF P(H,Hi)=6 

THEN 

4280 

4420 

X = H 



4430 

XI =»H 1 



4440 

IF P(X,Xl)>0 

THEN 

4480 

4450 

GOSUB 3120 



4460 

Hi»Hl+l 



4470 

GOTO 2900 



4480 , 

lCALL VCHAR (4 + X,l 7-fXl , 1 36) 
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4490 CALL HCHARC23, 1 , 32,32 ) 

4500 GOSUB 2720 

4510 FOR Z=*l TO LEN (M8$ ) 

4520 CALL HCHAR(23,14+ Z,ASC(SEG$ 
(M8$, Z, 1))) 

4530 NEXT Z 

4540 CALL SOUND(200,220,2,330,2, 
440,2,-8,2) 

4550 CALL SOUND(300,110,0,220,0, 
330,0,-8,0) 

4560 SF-P(X,X1) 

4570 CALL VCHAR(19,6,X+64) 

4580 CALL VCHAR(19,7,X1+47) 

4590 P(X,X1)* 7 

4600 H = X 

4610 HI=X1 

4620 FOR X2 = 1 TO 5 

4630 DS(X2)*0 

4640 NEXT X2 

4650 FOR X2* 1 TO 10 

4 660 FOR X3* 1 TO 10 

4670 1F CH*1 THEN 4690 

4680 IF T=0 THEN 4740 

4690 IF P(X2,X3)«0 THEN 4780 

4700 IF P(X2,X3)=6 THEN 4780 

4710 IF P(X2,X3)-7 THEN 4780 

4720 DS(P(X2,X3))=DS(P(X2,X3))+1 

4730 GOTO 4780 

4740 IF O(X2,X3)=0 THEN 4780 

4750 IF 0(X2,X3)=6 THEN 4780 

4760 IF O(X2,X3)«7 THEN 4780 

4770 DS(0(X2,X3))=DS(0(X2,X3))+1 

4780 NEXT X3 

4790 NEXT X2 

4800 IF CH = 1 THEN 3620 

4810 W=0 

4820 SCORE-O 

4830 FOR Z4 =1 TO 5 

4840 ON Z4 GOSUB 1110,1160,1210, 

1260,1310 

4850 IF DS(Z4)= LE THEN 4940 

4860 IF DS(Z4)=0 THEN 4890 

4870 W»=W+1 

4880 GOTO 4940 

4890 SCORE = SCORE 4-1 

4900 IF T-0 THEN 4930 

4910 GOSUB 5010 

4920 GOTO 4940 

4930 GOSUB 5000 

4940 NEXT Z4 

4950 IF T=0 THEN 4980 

4960 W1=W 

4970 GOTO 2900 

4980 W=W1 

4990 GOTO 2900 

5000 SCP-SCORE 

5010 CALL HCHAR(23,1,32,32) 

5020 FOR X3=1 TO LEN(PR$)+10 
5030 CALL HCHAR(23,X3 + 6,ASC(SEG$ 
(PR$&*' AFFONDATA." ,X3,1 )) ) 

5040 NEXT X3 

5050 IF T*0 THEN 5090 

5060 CALL VCHAR(20,20,SCORE + 4 8) 

5070 IF SCORE= 5 THEN 5120 
5080 RETURN 

5090 CALL HCHAR(20,27,SCORE+4 8) 

5100 IF SCORE= 5 THEN 5140 
5110 RETURN 


5120 PRINT "IL COMPUTER VINCE DI 
NUOVO!" 

5130 GOTO 5150 

5140 PRINT "SARAI PIU’ FORTUNATO 
LA" 

5150 PRINT "PROSSIMA VOLTA!" 

5160 PRINT "UN'ALTRA PARTITA? (S 
/N)" 

5170 INPUT NG$ 

5180 IF NG$*"N" THEN 5350 
5190 IF NG$*"S" THEN 5220 
5200 CALL SOUND(200,110,0) 

5210 GOTO 5150 
5220 FOR L-1 TO 10 
5230 FOR LI =* 1 TO 10 
5240 P(L,Li)-0 
5250 O(L,Li)«0 
5260 NEXT Li 
5270 NEXT L 
5280 FOR L*1 TO 5 
5290 FOR Li*1 TO 5 
5300 SH(L,Li,1)-0 
5310 SH(L,Li,2)=0 
5320 NEXT Li 
5330 NEXT L 
5340 GOTO 880 
5350 CALL CLEAR 
5360 STOP * 

5370 NNN-0 
5380 AAA-0 

5390 FOR X=1 TO LE-1 

5400 IF NNN = 1 THEN 5430 

5410 IF SH(S,X,1)=SH(S,X+l,1)THE 

N 5460 

5420 IF AAA=1 THEN 2020 

5430 IF SH (S, X , 2) OSH (S, X+1 ,2) TH 

EN 2020 

5440 NNN=1 

5450 GOTO 5470 

5460 AAA=1 

5470 NEXT X 

5480 RETURN 

5490 END 


Guida per l’input dei 
programmi sul TI 99/4A 

A causa del sistema di codifica utilizzato, 
possono capitare in alcune linee delle im¬ 
provvise “andate a capo" delle quali, natu¬ 
ralmente, non va tenuto conto in fase di digi¬ 
tazione. 

Vi potrò capitare, a volte di trovare nei listati 
di programmi per TI 99 Na alcuni caratteri 
sottolineati. La sottolineatura rappresenta 
una particolare codifica dei tasti di controllo: 
dovrete quindi premere il tasto indicato dal 
carattere insieme al tasto CONTROL. 

Ad esempio, se trovate A_ dovrete battere 
CONTROL+A; se trovate —. dovrete battere 
CONTROL + SPAZIO, e così via. 
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Identikit 


iiruzlai^* 

Sp ectrujyf 


Ecco un gioco che, pur particolarmente piace¬ 
vole per i più giovani, non mancherà di stupire 
ed interessare chi ama la grafica dello Spec- 
trum. Con 'Identikit' dovete tentare di ricostrui¬ 
re il volto di un bandito che avete appena in¬ 
travisto in una buia notte piovosa, e che dove¬ 
te tentare di rinchiudere dietro solide sbarre. 
In realtà voi non avete visto nessun mascalzo¬ 
ne, e difficilmente il programma vi consentirà 
di arrestarlo: ricostruite dunque il volto a pia¬ 
cere a godetevi il risultato finale senza sperare 
di vincere qualche cosa. In sostanza le finalità 
del gioco sono solo grafiche ed in tal senso va 
sottolineato che le possibilità di scelta fra i di¬ 
versi occhi, nasi, labbra, capelli, ecc., sono dav¬ 
vero capaci di mostrare sul video personaggi 
dalle fattezze diversissime. È il programma 
stesso a segnalarvi le possibili opzioni grafiche: 
rispondete quindi seguendo il vostro gusto per¬ 
sonale. 

Due parole vanno spese a vantaggio dei pos¬ 
sessori di Spectrum lóK: infatti il programma, 


1 REM IDENTIKIT 

3 PRINT AT 10,10; INVERSE 1;"Un at 
timo..." 

5 GO SUB 7000 

100 FOR i=15 TO 30: BEEP .01,1: 

BEEP .05,i-2: NEXT i 

120 PRINT AT 5,8; BRIGHT 1;"***IDÈNT 
I KIT* * *";AT 10,1; BRIGHT 0;"Pens 
i di riuscire a ricostruire"; 

AT 12,1;"le sembianze del colpev 
ole ?" : FOR i-1 TO 200: NEXT i: 

CLS 

1 30 RESTORE 150 

140 FOR i=l TO 11 : READ bip: BEEP .1 
,bip: NEXT i: BEEP .5,12 

150 DATA 0,4,2,5,4,7,5,9,7,11,9 

190 PAUSE 30: GO SUB 600 

200 INPUT "Quali OCCHI ? ";k 

203 IF k*1 THEN LET w$="AB": LET in 
*1: LET b:p*-10 : LET bop=0: 

GO TO 70C 

204 IF k*2 THEN LET w$*"CD": LET in 
*0: LET hip*-20: LET bop=10: 

GO TO 70C 

205 IF k= 3 THEN LET w$ = "EF": LET in 
«1: LET bip*-30: LET bop=-20: 

GO TO 70C 


così come qui pubblicato, gira solo sul 48K. Chi 
possiede la versione più piccola del computer, 
procede come segue: 

— togliere tutte le REM 

— sostituire la linea 3 con: 3 LO AD " CODE 

— eliminare la linea 5 

rinumerare la linea 7300, facendola diven¬ 
tare la numero 4, ed aggiungervi LET ze = VAL 
" 0 " 

— eliminare la linea 120 

— nel copiare il listato sostituire a tutti gli zeri 
la variabile ze; rendere poi tutti i numeri (sia¬ 
no DATA, PLOT, variabili dei loop, ecc...) ar¬ 
gomenti della funzione VAL (es.: VAL “180") 

infine non copiare nel mam program le li¬ 
nee per la deflazione dei caratteri grafici (da 
7000 a 7400): queste ultime vanno battute do¬ 
po aver salvato il programma principale (con 
SAVE “identikit " LINE 3) e fatte poi girare, in 
modo da definire il set grafico che può poi es¬ 
sere salvato di seguito al programma vero e 
proprio con SAVE "udg ’ CODE USR ‘a", 168 


206 IF k * 4 THEN LET LET in 

*0: LET bip«20: LET bop=30: 

GO TO 700 

207 IP k*5 THEN LET w$«"Ar": LET in 
*=5: LET bi p* 1 5 : LET bop-25: 

GC TO 700 

208 IF k = 6 THEN LET w$»"CC": LET in 
*2: LET bip=50: LET bop*40: 

GO TO 70C 

21 0 GO TO 2OC 

211 PRINT AT 2,2; INK 2;"1*I ";AT 2, 
6; INK 1 ; " 2 s J " ; AT 2,11; INK 0; 
"3 = PQ";AT 3,4; INK 2;"L";AT 3,8; 

INK 1 ;"MNO";AT 3,13; INK 0;"RS" 
;AT 4,2; INK 2;" K 

INPUT "Quìi le NASO ? • ; k : IF k<l 

OR k>3 THEN GO TO 2 11 

212 IF k=1 THEN LET w$="I": LET o$ = 
"J": LET p$="K": LET In*2: LET 1 
un=0: LET len=0: LET *t-0: LET e 
p=-10 : GO TO 705 

213 IF k = 2 THEN LET w$ = m L m : LET o$ = 
"MNO": LET p$-"": LET rn=l: 

LET lun = 0 : LET len=1 : LET st = 1 0 
: LET ep*-! 0 : GO TO 705 

214 IF k= 3 THEN LET w$-’PQ": LET 0$ 
s "RS": LET p$«"": LET~In*0: 
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LET lun=l : LET len*l: LET st*20 
: LET ep*0: GO TO 705 

215 GO SUB 9000: PRINT AT 0,0;"1*"; 
AT 0,9;"2«";AT 0,17;"3- M ;AT 6,0; 

"4 = " 

216 RESTORE 240: FOR i-1 TO 4: 

READ q r *: PLOT q,z: POR j-1 

TO'ìS: READ v,w,z: DRAW v,w,z: 

NEXT j: NEXT i 

220 INPUT "Quali LABBRA ? M ;k 

223 IP k-1 THEN LET q-178: LET z-52 
: GO TO 710 

224 IP k-2 THEN LET q-180: LET Z-52 
; GO TO 710 

225 IP k-3 THEN LET q-180: LET z-46 
i GO TO 710 

226 IP k-4 THEN LET q-182: LET z-54 
: GO TO 710 

228 GO TO 220 

240 DATA 20,160,5,-3,0,3,-5,0,15,0,0 
,3,5,0,5,3,0,-10,3,0,-5,0,PI, -5 
,0,PI,-10,-3,0,31 ,0,0 

250 DATA 90,160,8,-5,0,12,0,0,8,5,0, 
-28,0,0,14,3,0,14,-3,0,0,0,0,0,0 
, 0 , 0 , 0 , 0 , 0 , 0,0 

260 DATA 162,160,5,5,0,5,3,0,3,1,0,3 
,-1,0,5,-3,0,5,-5,0,-25,0,PI, 0, 
0 , 0 , 0 , 0 , 0 , 0 , 0,0 

270 DATA 22,130,3,-6,0,6,-4,0,6,0,0, 
6,4,0,3,6,0,-6,-2,0,-4,-3,0,-4,0 
,0,-4,2,0,-6,4,0 

599 REM disagno volto u cornice 

600 BORDEK 3: PLOT 130,12: BEEP .03, 
40: DRAW 0,140: BEEP .03,39: 

DKAW 120,0: BEEP .03,36: DRAW 0 
,-140: BEEP .03,37: DRAW -120,0: 

BEEP .03,36 

601 PAUSE 20: PLOT 128,10: BEEP .03, 
40: DRAW 0,144: BEEP .03,39: 

DRAW 124,0: BEEP .03,38: DRAW 0 
,-144: BEEP .03,37: DRAW -124,0: 

BEEP .03,36 

610 PLOT 230,105: BEEP .01,35: 

DRAW -80,0,PI: BEEP .01,34: 

PLOT 230,105: BEEP .01,33: 

DRAW 0,-22: BEEP .01,32: DRAW - 
5,-22: BEEP .01,31: DRAW -7,-10: 

tì£EP .01,30: DRAW -10,-15: 

BEEP .01,29 

611 PLOT 150,105: BEEP .01,28: 

DRAW 0,-22: BEEP .01,27: DRAW 5 
,-22: BEEP .01,26: DRAW 7,-10: 

BEEP .01,25: DRAW 10,-15: 

BEEP .01,24: PLOT 173,35: 

BEEP .01,23: DRAW 35,0,PI: 

BEEP .01,22 

612 PLOT 150,90: BEEP .01,21: DRAW - 
6,0: BEEP .01,20: DRAW 4,-18: 

BEEP .01,19: DRAW 5,0,PI: 

BEEP .01,18: PLOT 227,72: 

BEEP .01,17: DRAW 5,0,PI: 

BEEP .01,16: DRAW 4,18: BEEP .0 
l,15l DRAW -6,0,PI: BEEP .01,14 

613 PLOT 185,95: BEEP .01,13: DRAW - 
16,0,PI: BEEP .01,12: PLOT 215, 
95: BEEP .01,11: DRAW -16,0,PI: 

BEEP .01,10: PAUSE 10: BEEP .2, 


30: BEEP .2,28: BEEP .2,30 

620 PRINT AT 2,2; INK 1; H 1-AB";AT 2, 
6; INK 0;"2-CD";AT 2,10; INK 1 ;” 
3 = EF" 

621 PRINT AT 4,2; INK 1 ;"4-GH";AT 4, 
6; INK 5;"5=AB";A> 4,10; INK 2;” 
6=CD” 

625 PRINT AT 21 , 0 ; "SCEGLI, POI PREMI 

ENTER 
650 RETURN 

700 REM disegno occhi 
703 PRINT AT 10,21; INK in;w$;AT 10, 
25 ;w$: BEEP .5,bip: ‘PAUSE 10: 

BEEP .5,bop: GO TO 21 1 
705 REM disegno naso 
708 PRINT AT 11,24-iun; INK in;w$; 

AT 12,24-len;o$;AT 13,24;p$: 

FOR i-st TO ep STEP -1: BEEP .0 
5,i: BEEP .05,i + 3: NEXT i: 

GO TC 21 5 

710 REM disegno labbra 

712 RESTORE 230+(k*10): READ i,i: 

PLOT q, z : FOR j*=l TO 10: READ v 
,w,z: DRAW v,w,z: NEXT j 

800 GO SUB 9003 * 

801 PRINT AT 1,0 ;”1-normali 2-poch 

i capelli";AT 3,0;"3»PUNK 11"; 

AT 5,0;"4-DISEGNALI TU" 

805 INPUT "Che tipo di CAPELLI 7 ";k 

810 IF k<1 OR k>4 THEN GO TO 805 
820 IF k*4 THEN GO TO 4500 
830 GO TO 1 900-*k • 1 00 
900 GO SUB 900C 

902 PRINT AT 0,0 ;"1-No";AT 2,0;”2-No 
n rasato";AT 4,0 ; "3*baffi”;AT 6, 
0 ;”4=barba*;AT 8,0;"5 = barba e ba 
f f 1" 

935 INPUT "PELI sul viso ? ";k 
9*0 IF k<1 OR k>5 THEN GO TO 905 
920 IF k = 1 THES GO TO 1600 
930 GO TO 2800fk*100 
16CC GO SUB 90C 0 : PRINT AT 3,0;"1=NO 
2=SI": INPUT "Portava gli occh 
iali ? ";k. 

1605 IF k<1 OR k>2 THEN GO TO 1600 

1610 IF k = 1 THEN .GO TO 5000 

1620 IF k=2 THEN GO TO 1710 

1 700 REM occhiali 

1710 RESTORE 1730: FOR i-1 TO 4:< 

READ v,v,x,bip 

1 720 CIRCLE v ,w , z: BEEP .5,bip: 

NEXT i 

1730 DATA 175,94,12,12,175,94,14,9,20 
7,94,12,11,207,94,14,7 
1750 FOR i=1 TO 3: READ v,w,bip: 

PLOT v,w: BEEP .5,bip 
1760 READ v,w,bip: DRAW v,w: BEEP .05 
,bip: NEXT i: BEEP 1,0: GO TO 50 
00 

1770 DATA 187,94,9,8,0,5,163,94,7,-12 
,-4,4,218,94,5,12,-4,2 

2000 REM capelli normali 

2010 RESTORE 2050: FOR i=1 TO 13: 

READ v,w,bip,z,q,bop 
2020 PLOT v,w: BEEP .01,bip: DRAW z,q 
,PI : BEEP .01,bop 
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2030 NEXT i: GO TO 900 
2050 DATA 1 55, 1 20,- 10,40,20,-9,1 57,1 2 
5,-8,35,20,-7,159,130,-6,30,15,- 
5,163,133,-4,25,10,-3,167,136,-2 
,20,8,-1,171,138,0,15,6,1 
2060 DATA 210,140,2,15,-25,3,212,138, 
4, 13,-22,5,214,1 36,6,1 1 ,-18,7,21 
5,134,8,9,-16,9,216,132,10,8,-13 
,11,218,130,12,6,-11,13,220,128, 
14,4,-8,15 

2100 REM pochi capelli 
2110 PRINT AT 3,23;"?": POR i«35 TO 5 
5: BEEP .007,i: PAUSE 5: NEXT i: 
GO TO 900 

2200 REM capelli punk 
2210 GO SUB 2280 

2220 INK 2: CIRCLE 150,70,3: PAUSE 20 
: RESTORE 2250: INK 3: LET v«185 
: GO SUB 2230: INK 4: LET v-195: 
GO SUB 2230: INK 0: GO TC 900 
2230 POR j-1 TO 6: READ w,z,q,bip: 

PLOT v,w: DRAW z,q: BEEP .04,bi 
P 

2240 NEXT j: RETURN 

2250 DATA 126,-7,12,-20,130,-6,12,0,1 
34,-5,12,-20,138,-4,12,0,139,-2, 
12,-20,139,0,12,0 

2260 DATA 126,7,12,-20,130,6,12,0,134 
,5,12,-20,138,4,12,0,139,2,12,-2 
0,139,0,12,0 

2280 POR i*.1 TO .02 STEP -.01: 

BEEP i,- 10 : NEXT i: RETURN 
3000 REM non rasato 
3010 RESTORE 3050: POR i*l TO 33: 
•READ v,w 

*020 PLOT v,w : BEEP .005,30-(INT (i/2 
)< > i / 2)*10 

3030 NEXT i: GO TO 1600 
3050 DATA 160,70,162,68,165,63,166,66 
, 167,58, 170,45,21 5,69,221,71,21 3 
,59,211,65,209,63,211,60,207,58, 
200,44,198,38,193,35,187,33,188, 
35 

3060 DATA 177,28,174,27,173,30,181,25 
,183,26,187,28,189,20,191,21,193 
,23,194,21,195,22,196,24,199,26, 
202,24,200,24 
3100 REM baffi 

3110 LET dr-.Ol: GO SUB 4000 

3120 GO TO 1600 

3200 REM barba 

3210 LET dr■•02 : GO TO 3320 

3300 REM barba e baffi 

3310 LET dr*.05 : GO SUB 4000 

3320 RESTORE 3350: POR i-1 TO 21: 

READ v,w,z,q 

3330 PLOT v,w: BEEP dr,ll: DRAW z,q: 

BEEP dr,12 
3340 NEXT i 

3350 DATA 180,17,-8,20,182,16,-9,21,1 
84,15,-9,21,186,14,-8,20,187,14, 
-7,20,188,14,-5,19,188,14,-3,18 
3360 DATA 189,13,-2,17,190,12,-1,17,1 
91,12,0,17,191,12,1,17,192,12,2, 
17,193,12,3,17,194,13,3,17,196,1 
3,3,17 

3370 DATA 1 97,14,4,17,198,1 5, 5,17,199 
,16,6,18,200,17,6,19,201,18,7,19 


,203,19,7,19 
3500 GO TO 1600 
4000 REM routine per baffi 
4010 RESTORE 4100: POR i-1 TO 12: 

LET Z-2: READ v,w,q 
4020 PLOT v,w: DRAW z,q: BEEP dr,-(30 
-(INT (i/2)-i/2)*10) 

4030 NEXT i 
4040 RETURN 

4100 DATA 180,57,5,182,58,5,184,60,5, 
186,62,5,188,64,3,190,64,3,198,6 
7,-3,200,67,-3^202,67,-5,204,65, 
-5,206,63,-5,207,62,-5 

4499 REM disegna i capelli 

4500 GO SUB 9000: PRINT AT 0,0;"DISEG 
NA CON I TASTI DEL CURSORE PREMI 

< 1 > QUANDO HAI FINITO" 

4501 OVER 1: PLOT 230,105: DRAW -80,0 
,PI : OVER 0 

4502 LET x-180 : LET y-144 
4510 LET w$-INKEY$ 

4520 LET x*x+(w$="8" AND x< 2 4 8 ) - (w$ =■ " 
5" AND x>132) 

4525 LET y-y-Mw$«"7" AND y<150)-(w$*" 
6" AND y>l4) 

4536 IP w$<>"" THEN BEEP .01,(RND* 

4)*10-10 

4535 IF w$»"l" THEN GO TO 900 
4540 PLOT x,y 
4545 GO TO 4510 

4999 REM fine disegno 

5000 GO SUB 9000: INPUT "TI SEMBRA LU 
I (S/N) ? ";w$ 

5010 IF w$-"n" OR w$«"N" THEN CLS : 

PRINT FLASH 1;AT 10,4 ;"ALLORA 
TENTA NUOVAMENTE": PAUSE 200: 

CLS : GO TO 190 
5020 IF w$ <>"s" AND w$<>"S" 

THEN GO TO 5000 

5025 PRINT AT 1,0;"MI SAREBBE PIACIUT 
O AIUTARTI A METTERLO DIETRO"; 
AT 3,0;"LE SBARRE, MA..." 

5030 FOR i-3 TO 20: FOR j = 19 TO 28 

STEP 3: PRINT AT i,j;"{SG8}": 

NEXT j: NEXT i 
5050 PAUSE 150: CLS 
5070 POR i-30 TO 2 STEP -1 
5080 PRINT AT 10,i;"T ": BEEP .002,0: 

PAUSE 4 

5090 PRINT AT l0,i-l;"U BEEP .002, 
6: PAUSE 4: NEXT T 
6000 CLS : PRINT AT 10,0; BRIGHT 1; 

INK 1;"..TROPPO TARDI : E' GIÀ 1 
FUGGITO!" 

6010 PRINT AT 21,0;"VUOI RICOSTRUIRE 
UN ALTRO VOLTOi»": INPUT w$ 

6030 IP w$-"s" OR w$*"S" THEN CLS : 

GO TO 190 

6040 CLS : PRINT AT 10,8;"IN TAL CASO 
...CIAO I" 

6050 STOP 

7000 REM udg 

7005 RESTORE 7030 

7010 POR i-USR "a" TO USR "u"+7: 

READ j 

7020 POKE 1,j: NEXT i 

7030 DATA 1,6,24,33,193,48,12,3 

7040 DATA 128,96,24,132,131,12,48,192 
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7050 

DATA 

7060 

DATA 

7070 

DATA 

7080 

DATA 

7090 

DATA 

71 00 

DATA 

31 

71 1 0 

DATA 

71 20 

DATA 

71 30 

DATA 

7140 

DATA 

71 50 

DATA 

71 60 

DATA 


1,6,24,17,17,16,li,3 
12b,96,24,lib,ì i6,0,48,192 
1*2,112,63,35,18,10,7,3 
3,14,*252,196,72,80,224, 192 
3,15,31,30,61,123,123,252 
192,240,252,60,222,239,239, 

129,66,36,36,36,36,36,36 
36,36,36,36,36,36,66,66 
129,129,129,129,231,66,60,0 

36,36,36,36,36,36,66,66 
1 ,6,8,8,8,4,3,0 
0,0,0,0,0,231,255,24 


71 

70 

DATA 

1 

28 

,96,1 

6,1 6 

,16,3?, 

192,0 

71 

80 

DATA 

0 

,1 

,3,6, 

4,4, 

4,4 


71 

90 

DATA 

1 

28 

,192, 

96,4 

8,16,16 

,16,16 

72 

00 

DATA 

2 

a. 

48,32 

,48, 

27,15,7 

, 1 

72 

1 0 

DATA 

2 

a, 

6,2,6 

, 1 08 

,120,11 

2,128 

72 

20 

DATA 

2 

4, 

88,40 

,24, 

60,42,1 

04,24 

72 

30 

DATA 

2 

4, 

26,12 

, 1 20 

,10,62, 

32,96 

73 

00 

LET 


» •• 










LET 1$ 

*Z$ ( TO 

16) 

74 

00 

RETURN 






9000 

PRIN' 

r 

AT 

0,0; 

; z 

$ ;AT 2, 

0 ; 1$ ; 



AT 3 

,o 

; i 

3 ; AT 

4,0 ; 

1$;AT 5 

,0;1$; 



AT 6 

,o 

113;at 

21,0 

;z$;AT 

8,0; 1$ 

90 

1 0 

RETURN 







sindaii^j 

- Spectrum 

Incursione aerea _ ™ 


In questo gioco, realizzato per lo Spectrum 48K, 
dovete guidare il vostro aereo sopra il territo¬ 
rio nemico per colpirne le installazioni militari. 
Obiettivi privilegiati della vostra missione sono 
i serbatoi di carburante, che danno diritto a 
pochi punti ma riempiono (se colpiti) il serba¬ 
toio del vostro aereo; inoltre i cannoni e i carri 
armati (IO punti cadauno). Considerando che 
la partita termina sia se venite colpiti dalla con¬ 


trarea nemica, sia se restate senza benzina, 
prestate attenzione al indicatore del carburante 
e colpite quanti più serbatoi potete. Controlla¬ 
te il movimento verticale cabrata/picchiata con 
i tasti '6' e 7', e fate fuoco con il tasto ’O'. 
Da segnalare due routine in linguaggio mac¬ 
china, una per il sonoro e l'altra per realizza¬ 
re uno scroti parziale della parte alta del video 
veramente interessante. 


1 REM /\/\/\/\/\/\/\/\/\/\/\/ 

2 REM INCURSIONE AEREA 

3 REM \/\/\/\/\/\/\/\/\/\/\/\ 

5 CLEAR 64999 

6 BORDER 7: PAPER 7: INK 0: 

FLASH 0: BRIGHT 0: OVER 0: 

CLS ; GO TO 1000 

7 LET hi-0 : LET z$-" 

GO SUB 1990 

8 GO SUB 9000 
20 GO SUB 7000 
30 GO SUB 2070 

35 FOR j-1 TO 224: GO SUB 3000 
40 IF INKEY$-"0 M THEN GO SUB 7500 

45 LET u-u-1: PRINT AT 19,11; 

PAPER 4 ;u; M " 

46 IF u-0 THEN PRINT AT 10,7; 

FLASH 1; INK 6; PAPER 2 ;"ESAURÌ 
TO CARBURANTE": GO SUB 8000 


47 

POKE 65107,1 




50 

IF b$ ( 238) * M I," 

THEN 

LET 

%D 

1 

OD 

CO 


LET h*l03 : GO 

SUB 

7600 


55 

IF b$(466 )-"t" 

THEN 

LET 

g«80 


GO SUB 7700 




60 

IF b$(463)="L" 

THEN 

LET 

o 

CD 

1 

o» 


LET h»l11 : GO 

SUB 

7600 


65 

IF b$(242)*"T" 

THEN 

LET 

g-88 


GO SUB 7700 




70 

IF b$(688)-"L" 

THEN 

LET 

g-72 


LET h-119: GO 

SUB 

7600 


75 

IF b$(692)* M T" 

THEN 

LET 

g-71 


GO SUB 7700 




80 

IF b$(913)- M L" 

THEN 

LET 

g-64 


LET h-127: GO 

SUB 

7600 


85 

POKE 65107,5 




90 

NEXT j 




100 

GO SUB 1990 




1 1 0 

GO TO 35 




999 

REM UDG 
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1000 

DATA 

1001 

DATA 

1 002 

DATA 

1 003 

DATA 

,56 

1 004 

DATA 

5 

1 005 

DATA 

1 006 

DATA 

1 007 

DATA 

1 008 

DATA 

1 009 

DATA 

1 010 

DATA 

1 01 1 

DATA 

2 

1 01 2 

DATA 

101 3 

DATA 

85 

1 01 4 

DATA 

101 5 

DATA 

1 01 6 

DATA 

1017 

DATA 

,252 

101 8 

DATA 

1019 

DATA 

1020 

DATA 

1 029 

REM 

1030 

DATA 

6,32 

5,35 

1 039 

REM 

1 040 

DATA 


0,0,0,112,248,252,252,252 
252,252,240,224,0,0,0,0 
0,144,216,254,255,24,16,0 
0,128,64,160,80,168,84,170 
1,2,5,10,21,42,85,170 
128,64,44,28,126,255,255,10 

8,34,128,4,32,2,64,8 
126,195,219,195,255,85,170, 

34,28,8,127,73,73,127,127 
15,63,15,15,31,127,255,255 
8,16,32,242,146,154,254,248 

192,224,193,194,228,248,252 


1020 DATA 85,170,85,170,85,170,85,170 


routine l/m sonoro 


205,181,3,225,17,16,0,167,237,90 
,125,254,255,32,237,193,16,230,2 
01,0 

1 050 FOR f*USR "a" TO USR "u M +7: 

READ a: POKE f,a: NEXT f 
1060 FOR f*65000 TO 65025: READ a: 
POKE f,a: NEXT f 

1070 FOR f*651 00 TO 651 29: READ a: 

POKE f,a: NEXT f 
1080 GO TO 7 
1990 DIM a$(5,224) 

2000 LET a$(1)*z$ ( TO 10)+"L L N" + z$ + 
z$( TO 14)+"KUUUUJ"+z$f TO 22)+" 
L N " + z $ ( TO T"4T+ M L N"+Z$+Z$ ( 

TO 1 8) “ 

2010 LET a$(2)*z$ ( TO 9)+"KUUUUUUUJ"+ 
z$( TO 20)+ "T L"+z$( TO VaJT^T 
L KUUUUU UJ"+z$( TO 17)+"L KUUUUJ 
" + z$( TO 1 1 ) + " KUUUUUJ LL"+Z$+Z$ 
+ z$ ( TO 21 ) + "OQ»* + z$ ( TO ?2) 

2020 LET a $ ( 3 ) - " T NNNN KUUUUUUUUUJ"+ 
Z$ ( TO 6)+ M T"+z$( TO _ T'T)+*KUUUUJ 
L"+z$( TO 9)+" LKUUUUUUUUUUUUJL " 
+ z$ ( TO 5) +"T"U$ ( TO 7) +"KUUUUU 
UUUUJ " + z$( TO 9)+"KUUUUUUUUUUUUJ 
"+z$( TO 20)+"OQ"+z$( TO 22)+ "T 
L N" + z$( TO 26)+ "T NNNN LPR N" + 
z$ ( ' TO 21 ) 

2040 LET a$ ( 4) *" UUUUUUUUU UUUUUUUUUUJ 
LKUUUJ "+z$ ( TO 8) + " KUUUUUUÙUJ ,r + 
z$( TO 6)+"TKUUUUUUUUUUUUUUUUUUU 
UUUJ L KUUUUUUUUUUÙJ L KUU 


1 • UWUU UU UUUUUJ M + z$ ( TO 1 8) +" LPR M + 

Z$( TO 2T) + rt KUU UUUUJ " + z$( to 23) 
+ " SUUUUUUUUUUÙUU >T +z$( TO 18)+ "K" 

2050 LET a$(5)-" UUUUUUUUUUUUUUUUUUUUU 
* UUUUUUUJ N L KUUUUUUUUUUJ N KU 

I uuuuuuuuuuuuuuuuuuuùuuuuuuuuuuuu 

I uuuuu uuuJuuuuuuuuuuùuuuuuuuuuuuu 

UJAAAAAAAAAAAAAAAASUÙUUAAAAAAAAA 
AAAAAAAAAAKUUU UUUUUJAAAAAAAA AAAÀ 
AAAAAAAAAÀASUUÙUUUUUUUUAAAAAAAAA 
AAAAAAÀÀAKU " 

2060 LÈT b$*a$(1)+a$(2)+a$(3)+a$(4)+a 
$(5): DIM a$(160): RETURN 

2070 LET a*7: LET sc-0 

2071 LET u-200 
2080 RETURN 

3000 LET b$-b$(2 TO 224)+b$(1) +b$ (226 

TO 448)+b$(225)+b$(450 TO 672)+ 
b$(449)+b$(674 TO 896) +b$ (673) +b 
$(898 TO 1120)+b$(897) 

3005 LET a$*b$(1 TO 32)+b$(225 TO 256 
)+b$(449 TO 480) +b$ (673 TO 704) + 
b$(897 TO 928) 

3006 PRINT AT a,10;" " 

3007 RANDOMIZE USR 65000 
3010 PRINT AT 10,0;a$ 

3012 IF SCREEN3 (a,10)-"" THEN 

GO SUB 8000 

3015 IF INKEY$*"7" THEN LET a*a-l: 

IF SCREEN$ (a, 10)0" ” THEN 

LET a*a-2 

3016 IF INKEY$*"6" THEN LET a-a+1: 

IP SCREEN$ (a, 10)0" " THEN 

IF a<8 THEN LET a-a + 2 
3020 PRINT AT a,10;"I" 

3025 IF a>14 THEN GO TO 8000 
3030 RETURN 

6000 BEEP .5,7: BEEP .5,16: BEEP .25, 
17: BEEP .25,16: BEEP .5,14: 

BEEP 1,16: BEEP .5,12: BEEP .5, 
16: BEEP .25,17: BEEP .25,16: 

BEEP .5,14: BEEP 1,19 
6005 RETURN 

6010 BEEP .5,16: BEEP .5,16: BEEP .11 
2,14: BEEP .112,12: BEEP .112,14 
: BEEP .112,11: BEEP .5,12: 

BEEP .25,14: BEEP .25,16: 

BEEP 1,7 
6015 RETURN 

6020 BEEP .5,9: BEEP .25,11: BEEP .25 
,14: BEEP .25,12: BEEP .112,11: 

BEEP .112,9: BEEP .25,7: BEEP . 
25,0: BEEP .25,5: BEEP .25,7: 

BEEP .25,9: BEEP .112,11: 

BEEP .112,9: BEEP 1,7 


6025 

RETURN 


• 

7000 

PAPER 1 : 

INK 7: BORDER 

1 : CLS 

701 0 

FOR f-15 

TO 21 : PRINT 

INK f-15; 


AT f , 0 ; " 

{ 32SG8)": NEXT 

f 

701 5 

PRINT AT 

15,0; "UUUUUUUUUUUUUUUUU 


UUUUUUUUUUUUUUU"^ 


7020 

PRINT AT 

T77Q~r PAPER 2; 

►-< 

z 

7? 

O 

». 


PUNTI « 

■ 0"; z$ { TO 9) ; 

"MAX - 


hi 



7030 

PRINT AT 

3,10; M ACEG M ;AT 

4,10;"BD 


FH" 


~ 

7031 

PRINT AT 

19,0; PAPER 4; 

INK 0;" 
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BENZINA - 200" 

7040 RETURN 

7500 FOR w«l1 TO 15: IF a>9 THEN 

IF b$(224Ma-10)+w)-"K" THEN 
RETURN 

7510 IF a>9 THEN IF b$( 224 *(a-10)+w) 
*"N" THEN LET SC-3C+2 : PRINT 
AT a , w - 1 ; "M" r RANDOMIZE USR 651C 
0: PRINT AT a,w-1 ; " LET b$((( 

a-10) *224)+w)■" PRINT AT 17,1 
1; PAPER 2;sc: LET u«u + l 4 +INT ( 
RND* 3) : RETURN 

7520 IF a>9 THEN IF b$(224 * (a- 10)+w) 
“V THEN LET sc=3C+10: PRINT 
AT a, w- 1 ;"M": RANDOMIZE USR 6510 
0: PRINT AT a,w-l;" LET b$((( 
a-10)*224)+w)PRINT AT 17,1 
1; PAPER 2;se: RETURN 

7525 IF a>9 THEN IF b$(224 *(a-10)+w) 
*"T" THEN LET sc-sc+10: PRINT 
AT a,w-1 ; "M" : RANDOMIZE USR 6510 
0: PRINT AT a,w-1 ;" LET b$((( 
a-10)*224)+w)■" PRINT AT 17,1 
1; PAPER 2;se: RETURN 

7530 PLOT (w* 8)+3,((21-a)*8)+3: 

DRAW 7,0: NEXT w 

7535 PRINT AT a,11 ;" " 

7540 RETURN 

7600 PLOT INK 6 ; h,g : DRAW INK 6 ; -( 1 
09-g),(109-g): RANDOMIZE USR 651 
00 

7610 IF ATTR (a, 10) 015 THEN 
GO TO 8000 

7620 PLOT INK l;h,g: DRAW INK 1;-(1 
09-g) , (109-g) : RANDOMIZE USR 651 
00: RETURN 

7700 PLOT INK 6;134,g-3: DRAW INK 6 
; -4 8,0 : RANDOMIZE USR 65100 

7710 IF ATTR (a, 10)<>15 THEN 
GO TO 8000 

7720 PLOT INK l;132,g-3: DRAW INK 1 
; - 4 8,0 : RANDOMIZE USR 651 00: 
RETURN 

8000 FOR f* 14 4 TO 151: POKE 651 07, (f- 
143): PRINT INK 6;AT a,10; 

OVER 1;CHR$ (f): RANDOMIZE 


USR 65100: NEXT f: PRINT AT a,10 
;"M": RANDOMIZE USR 65100: 

PRINT AT a , 10;" " 

8010 GO SUB 6000 

8020 GO SUB 1990 

8030 IF 8C>h i THEN GO SUB 6010: 

LET hi-sc: PRINT AT 17,27; 

PAPER 2; FLASH 1;hi 

8035 PRINT AT 10,0) FLASH 1; INK 6; 

PAPER 2; BRIGHT 1; M PREMI UN 

TASTO PER GIOCARE PAUSE 2: 

PAUSE 0 

8040 GO TO 10 

9000 PAPER 0: BORDER 0: CLS : PRINT 

AT 1,0; INK 7;" INCURSION 

E AEREA " 

9005 LET h$-"Guida il tuo aeroplano a 
opra il territorio nemico e ce 
rea di H 

9008 LET h$-h$+"colpire i aerbatoi di 
carburante(N) , i cannoni (L) o 

i carri " 

9010 LET h$-h$+"armati (T). 

Presta attenzione all 
a benzina : H 

9013 LET h$*h$+"infatti la partita te 
rmina se laesaurisci o se vieni 
colpito. Un" 

9015 LET h$*h$+"modo per far rifor 
nimento e* quello di colpire i a 
erbatoi delneraico. 

N 

9018 LET h$*h$+z$+"TASTI/COMANDI: 

'6' --SU 
'7* -- GIU' 

‘0' — BOMBA" 

9020 PRINT AT 4,0;: INK 7: FOR f-1 
TO LEN h$: PRINT h$(f); : BEEP 
001,40: NEXT f 

9030 PRINT AT 21,0;" PREMI UN TASTO 
PER GIOCARE 

9035 PAUSE 0: CLS 

9040 RETURN 
60 IF ► 


Alcooltest 



Piloti di formula I , dovete correre il gran pre¬ 
mio che vi porterà al successo internazionale. 
Per vostra sfortuna e poca responsabilità, la 
notte prima della corsa avete partecipato ad 
una festa e vi trovate ora, alle otto del matti¬ 


no, ubriachi fradici. Per questo motivo imboc¬ 
cate la pista contromano e vi trovate a dover 
evitare urti con gli altri concorrenti! Ce la fare¬ 
te ad uscirne vivi e... sobri? Le istruzioni per 
il movimento sono contenute nel programma. 
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0 GOSUB2000 :POKK55,255 :POKE56,48 
:V“53248 

1 POKES328I,5:POKE53280,7 : POKEV+ 
22,PKEK(V+22) ORI 6 s PRINT" {CI.R}" 

2 POKE532 65,1 51:FORI«OTO111 : READ 
A:POKE12*1024+1,A:NEXT:POKEV+2 
4,28 

3 POKE54276,0 :POKE54296,4 :POKE54 
277,132:POKE54278,240:POKE5427 
2,18:POKE54273,1 

4 POKE54276,129 

5 L=0 :LA=0:X=150 :POKEV+34,4 :POKE 
V+35,7 

6 FORI=0TO6 2 : READA:POKE832 + I,A:N 
EXT:POKE2040,1 3:POKEV+39,7 :POK 
EV+37,6 

7 POKEV+ 38,2:POKEV+28,1:POKEV,X: 
POKEV+1,100:POKEV+21,1 

8 FORI * 1 254 4T0125 51 : POREI,0 :NEXT 

9 PRINT"{HOME}"; : FORI = 1T025:PRIN 
T"{ 10 DES}{WHT}I{ 12 DES}l":N 
EXT:A»PEEK(V+31) 

10 LA=LA+.02:PRINT"{HOME} 

. { 24 GIU 1 }{ 10 DES}{WHT}I 
{ 12 DES}I" 

11 IFSP>1THENFORI = 1TOSP* 20 :NEXT 

12 PRINT"{HOME}{ 24 GIU'} 

{ 10 DES}"; 

13 IFOS>0THEN21 

14 IFOOTHEN51 

15 1 FINT(RND(1)*10+1)<7+SKTHEN10 

0 

16 IFRND(1)<.9STHEN50 

20 OS“1 :P=INT(RND(1)* 11+1 ) 

21 IFOS=lTHENPRINTSPC(P);"JK";:0 
S=2:GOT025 

22 IFOS-2THENPRINTSPC(P);"LM";:0 
S = 0 

25 IFC^OTHEN100 

50 C«1:P»INT(RND(1)*10+1) 

51 IFC=1THENPRINTSPC(P);"@AB";:C 
= 2 : GOTO 100 

52 IFC=2THENPRINTSPC(P);"CDE";:C 
= 3:GOTOÌ 00 

54 IFC»3THENPRINTSPC(P);"FGH";:C 
■=0 

100 PE=PEKK(197) 

110 IFPK» 1 2T1)ENX“X-4 
120 lFPE=36THENX=X+4 
130 IFPE = 120RPE = 36THENPOKEV,X : PO 
KEV+1,100 

140 IFPKEK(V+31)=1THEN500 
200 1 Fl,A< 1 2 - ( S K * 2 ) TH KNGOTO1 0 
205 POKEV,OiPOKE34273,0:POKE5427 
2,0 

210 POKEV+24,20 :PRINT"{CLR}{WHT} 
BEN FATTO 1111" 

220 PRINT"{CYN}{ 2 GIU ' } {YEI.}HAI 

COMPLETATO IL GIOC01" 

230 PRINT"{GIU'}{BLK}INCIDENTI:" 
;L 


| 240 GOTO 1020 

500 D“-1 : IFRND(1)<.6THEND»! 

503 POKE54272,137:POKE54273,43 
505 FORI « 100TO200 
508 POKE53280,1/10 
51 5 X=X+(D*4) 

520 IFX<118THEND-1 
525 IFX>185THEND»-! 

530 POKEV,X:POKEV+l,I 
540 NEXT 

550 X = 1 50 :POKEV,X :POKEV+1,100 
560 L-L+1 
570 IFL-3THEN1000 
575 POKEV+31,0 :PRINT"{CLR}":OS-O 
:C=0:POKE53280,7 
578 POKE54272,18:POKE54273,1 
580 GOTO9 

1000 POKEV,0:POKEV+24,20:PRINT" 
{CLR}{BLKjKABOOM! !!! 1 !" 

1 002 POKE5427 2,43:POKE54273,1 37 
100 5 POKE54 27 2,0:POKE54273,0 :POK 
E54278,0 

1006 POKE54 296,1 5 :POKE54 2 77,2 36 : 

POKE54278,236:POKE54276,1 29 
1 007^ POKE54 2 7 3,7: POKK54272,53 
1 01 0' PRI NT" {BLU } { 2 GIU'jTRE INC 
I DENTIi" 

1015 FORI•1TO700:NEXT:POKE54278, 
0 :POKE54 272,0 :POKE54 2 73,0 
1020 PRINT"{ 3 GIU'}{YEL}GIOCHI 
ANCORA?" 

1030 GETAS:IFA$*"S"THENRUN 
1 040 IFA$<>"N"THENl 030 
1050 END 

2000 POKE53281,0 

2005 PRINT" {CLR} {WHT}ALCOOI.TEST! 

1 " 

2010 PRINT"{GIU'}{CYN}UN GIOCO D 
I ABILITA'.EVITA LE ALTRE 
{ 5 SPAZIJMACCHINE IN 15 Gl 
RI . " 

2020 PRINT"{GIU'}{WHTjHAI BEVUTO 
MOLTO PRIMA DELLA CORSA E. 

Il 

• • 

2030 PRINT"STAI GUIDANDO CONTROM 
ANO 111" 

2040 PHINT"(GIU'l(RVS}{RED}COME 
SE NON BASTASSE NON PUOI FE 
KMART Il" 

2050 PRINT"{GIU*}I TASTI SONO:" 
20b0 PRINT"{GIU'}{YEL}Z-{GRN}SIN 
ISTRA" 

2070 PRINT"{GIU'}{YEL}M-{GRNjDES 
TRA" 

2080 PRINT"{GIU'}NON SCHIANTAART 
I SUL BORDO DELLA STRADA!" 
2090 PRINT"{ 2 GIU'}{PUR}PREMI U 

N TASTO" 

2100 GETA$:IFA$ = ""THEN21 00 
2105 PRINT"{CLR}{WHT}>>>>>>>>>>> 
>>>>>{GRN}OPZIONl{WHT}<<<<< 
<<<<<<<<<<<<" 
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2110 PRINT"{GIU'){RED}VELOC1TA'? 
(1 VELOCE - 5 LENTO) 1 ' 

2120 GKTA$ 

2130 IFVAL(A$)<1 ORVAL( A$ )>5T!IEN2 
1 20 

2140 SP=VAL(A$) 

2150 PRINT"{GIU'}{BLU}DIPFICOLTfc 
' ? (1 DIF F. - 3 FACILE) " 

2160 GETA$ 

21 70 [ FVAL ( A$ ) < 1 ORVAI. (A$) > 3THEN2 
1 60 

21 80 SK=VAL(A$) : IFSK * 1THENSK*1 .5 

2190 PRINT"{ 2 GIU'){YEL}BUONA F 
ORTUNA!" 

2200 PRINT"{ 2 GIU'}{PUR}PREMI U 
N TASTO" 

2210 GETA$ 

2220 IFA$ = ""THEN 2 210 

2230 RETURN 

9000 DATA0, 0,4 , 7,15,7,4,0,48,48, 
252,255,255,255,236,236,0,0 
,64,64,192,64,64,0 


9010 DATA0,0,0,79,127,127,255,79 
,236,252,204,3,255,255,255, 
255,0,0,0,196,244,244 
9020 DATA252,196,64,79,15,63,0,0 
,0,0,48,255,171,255,0,0,0,0 

9030 DATA4,196,192,240,0,0,0,0 
904 0 DATAI 26,126,126,126,60,60,6 
0,60 

9050 DATA, 3,15,14,14,58,234,58,0 
,0,192,192,192,192,252,172 
9 060 DATAI 4 ,14,58,58,236,243,3,0 
,171,188,240,192,176,176,17 
6,192 

9100 DATA63,255,240,15,171,192,7 
9,255,1 96,64,48,4,79,255,19 
6,255,255,252,127,255 
9110 DATA244,127,255,244,79,3,19 
6,0,204,0,0,252,0,0,236,0,0 
,236,0,4,236,64,7 
9120 DATA255,64,15,255,192,7,255 
,64,4,252,64,0,40,0,0,48,0, 
0 , 0,0 



Easydir 


Cbk- ¥> 0 = 

disk drive I 54 


Ecco un programma in linguaggio macchina 
che, dopo essere s tato Inserito in memoria da 
questo caricatore BASIC, vi permetterà di leg¬ 
gere istantaneamente la directory in un disco 
senza dovere ogni volta digitare la lunga frase 
LOAD“$",8; digitato questo semplice program¬ 
mino, con il RUN attiverete il caricamento della 
routine nel buffer del registratore ed il cancel¬ 
lamento automatico della parte in BASIC. Sa¬ 
rà quindi sufficiente, ogni volta che desideria- 

programma per C64 

800 FORI=830TOl011 :READA:CK*CK+A 
:POKEI,A:NEXT 

810 IFCK< >2542 7THENPRINT"ERRORE 
NELLE DATA”:END 

820 PRINT"{CLR}PER ATTIVARE : SY 
S 8 30": NEW 

830 DATA32,21 1 , 3,32,204,255 
836 DATA32,204,255,162,1,32 
842 DATAI 98,255, 32,228,255, 32 


te leggere la directory del disco che si trova nel 
drive, digitare SYS830 e premere RETURN. La 
directory verrà listata sul video in un formato 
insolito: per occupare meno spazio i nomi dei 
file sono elencati l'uno di seguito all'altro, e pre¬ 
ceduti dal numero di blocchi occupati da cia¬ 
scuno di essi. Si tenga presente che, essendo 
residente nel buffer del registratore, questa rou¬ 
tine si cancellerà con ogni operazione di in¬ 
put/output che usi l'unità a cassette. 


848 DATA228,255,160,29,32,228 
854 DATA255,32,210,255,136,208 
860 DATA247,169,13,32,210,255 
866 DATA76,128,3,32,191 ,3 
872 DATA32,228,255, 201,1 3,240 
878 DATA56,201,34,208,245,32 
884 DATA228,255,201,34,240,6 
890 DATA32,21 0,255, 76,1 1 5, 3 
896 DATA32,228,255,240,13,201 
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902 DATA42,208,247,32,210,255 
908 DATA32,210,255,76,128,3 
914 DATA32,228,255, 32,228,255 
920 DATA32,228,255, 141,245,3 
926 DATA32,228,255, 141 ,244,3 
932 DATA76,101,3,169,70,32 
938 DATA210,255,169,82,32,210 
944 DATA255, 169,69,32,21 0,255 
950 DATA169,1,32,195,255,32 
956 DATA204 , 255, 96, 169,32,32 


programma por VIC IO 


800 FOR1*83 OTOl011 : READA :CK*CK+A 
:POKEI, A :NEXT 

81 0 IFCK0254 56THENPRINT"ERRORE 
NELLE DATA":END 

820 PRINT"{CLR}PER ATTIVARE : SY 
S 8 30": NEW 

830 DATA32,21 l ,3,32,204,255 
836 DATA32,204,255,162,1,32 
842 DATAI 98,255, 32,228 # 255# 32 
848 DATA22 8,255, 160,29, 32,228 
854 DATA255,32,210,255,136,208 
860 DATA2 47,169,13,32,210,255 
866 DATA76,128,3,32,191,3 
872 DATA32,228,255,201,13,240 
878 DATA56,201,34,208,245,32 
884 DATA228,255,201,34,240,6 
890 DATA 32,210,255,76, 115, *3 
896 DATA32,228,255, 240,1 3, 201 
902 DATA4 2, 208,247, 32,21 0,255 


962 DATA210,255,173,244,3,174 
968 DATA245,3,32,205,189,169 
974 DATA45,32,210,255,96,32 
980 DATA204,255,169,1,133,184 

986 DATA169,8,133,186,169,0 
992 DATAI 33, 1 85, 1 69,2, 1 33,1 83 
998 DATA 169,242,133,187,169,3 
1 004 DATAI 33, 188,32, 193,225,96 
1010 DATA3 6,4 8 


908 DATA32,210,255,76,128,3 
914 DATA32,228,255,32,228,255 
920 DATA32,228,255,141,245,3 
926 DATA32,228,255,141,244,3 
932 DATA76,101,3,169,70,32 
938 DATA210,255,169,82,32,210 
944 DATA255,169,69,32,210,255 
950 DATAI 69,1 , 32,1 95,255,32 
956 DATA204,255,96,169,32,32 
962 DATA210,255,173,244,3,174 
968 DATA245,3,32,205,221,169 
974 DATA45,32,210,255,96,32 
980 DATA204,255,169,1,133,184 

986 DATA169,8,133,186,169,0 
992 DATA133,185,169,2,133,183 
998 DATA169,242,133,187,169,3 
1 004 DATAI 33, 188,32,190,225,96 
1010 DATA3 6,48 


Speedreader 



A/lo/to spesso, quando si scrive velocemente, 
non ci si rende conto degli errori commessi, per¬ 
ché l'occhio non è abituato a leggere veloce¬ 
mente parole e frasi. Con questo programma 
è possibile allenare l'occhio a questo esercizio, 
in modo da poter leggere velocemente testi an¬ 
che molto lunghi. 

Le frasi visualizzate dal computer sono conte¬ 
nute in linee DATA che possono essere di qual¬ 
siasi numero (compatibilmente con la memo¬ 
ria del VIC 20). 

Il modo di lettura può essere modificato a pia¬ 


cimento usando i tasti: 

> Per aumentare il numero di caratteri vi¬ 
sualizzati nello stesso istante; 

< ' Per diminuirli. 

T Per aumentare la velocità di scorrimento 
del testo; 

‘S' Per diminuirla; 

'Q' Per terminare. 

Naturalmente l'effetto di tali opzioni aumen¬ 
ta gradualmente, cioè si incrementa ad ogni 
pressione. 
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5 POKE808,114 
io poke36879,1 1 o 

20 PRINT"{WHT}" 

30 CL*38576 . 

50 PRINT"{CLR}" 

60 FORI * 1 T04 : PRI NT : NF.XTI 
70 PRINTTAB(3)"**SPEEDREADER**" 
80 PRINT:PRINT 
90 PRINT"PREMERE :" 

100 PRINT:PRINT"{RVS}F{OFF}-LETT 
URA VELOCE" 

110 PRINT:PRINT"{RVS}S{OFF)-LETT 
URA LENTA" 

120 PRINT: PRINT"{RVS)>{OFF)-TAN 
TI{ 2 SPAZI)CARATTERI 
{ 5 SPAZI)PER LINEA" 

1 30 PRINT:PRINT"{RVS)<{OFF)-POCH 
I CARATTERI{ 6 SPAZI)PER LIN 
EA" 

140 PRINT:PRINT"{RVS)Q{OFF}-PER 
FINIRE" 

150 PRINT:PRINT 

160 PRINT"{YEL){RVS){DES)<SPAZIO 
> PER INIZIARE" 

170 S = PEEK(1 97) : IFS032ANDS048T 
MENI 70 

175 IFS = 4 8THEN60000 
190 POKE36879,59 
200 READA$ 

21 0 I FA$ *"FINE"THEN60000 

230 PRINT"{CYN){CLR}{ 8 GIU')"A$ 

240 FORL= 0TO21 
250 POKECL+L,0 

260 IFL-NO «0THEN POKECL+L-NC,3 
270 FORD*OTODD:NEXT D 
280 NEXT L 
290 S*PEEK(197) 

300 IFS = 4 2THENDL) = DD - 1 0 
310 IFS = 41 THENDD = DD +1 0 
320 IFS=37THENNC=NC+2: IFNOl 1 THE 
NNC-NC-2 

340 IFS=29THENNC*NC-2:IFNC<3THEN 
NC=NC+2 

360 IFS = 4 8THEN60000 
370 GOTO200 

410 DATA "QUESTO E’ UN ESEMPIO" 
415 DATA"DI LETTURA VELOCE UN" 
420 DATA"PROGRAMMA PER VIC-20." 
425 DATA"SI POSSONO IMMETERE " 
430 DATA"ALCUNE FRASI DA" 

435 DATA"LEGGERE NEI{SPAZI}CODIC 
I" 

440 DATA "DATA E IL COMPUTER" 

445 DATA"VISUALI ZZERÀ' UNA" 

450 DATA "LINEA PER VOLTA DA " 
455 "SINISTRA A DESTRA " 

460 DATA "FORZANDO ALLA LETTURA" 

465 DATA" CORRETTA E VELOCE" 

470 DATA "L'OCCHIO.CON UN PO' DI 

tt 

480 DATA "PRATICA, E'" 

485 DATA"POSSIBILE RADDOPPIARE" 
490 DATA"0 TRIPLICARE LA " 

495 DATA"VELOCITA' DI LETTURA." 
500 DATA "SI PUÒ' USARE LA" 

505 DATA"TASTIERA PER CAMBIARE" 


510 DATA"LETTURA : CON (F) SI" 

515 DATA"VELOCIZZA, CON (S) SI" 
520 DATA "RALLENTA LA LETTURA " 
525 DATA"DELLE FRASI MOSTRATE." 
530 DATA "SE SI VOGLIONO" 

540 DATA "VEDERE MOLTE LETTERE " 

545 DATA"PER LINEA BISOGNA " 

550 DATA "PREMERE IL TASTO > " 
555 DATA"E PREMENDO < IL NUMERO" 

560 DATA "DI CARATTERI" 

565 DATA"MOSTRATI NELLO STESSO" 
567 DATA"ISTANTE DIMINUISCE." 

570 DATA "PER FINIRE PREMERE" 

580 DATA "IL TASTO (Q)." 

585 DATA"QUESTO PROGRAMMA" 

590 DATA"DUPLICA MOLTE TECNICHE" 

600 DATA"USATE NELLA NORMALE" 

605 DATA"VELOCIZZAZIONE DI" 

610 DATA"LETTURA NELLE SCUOLE" 
615 DATA"PERCHE' QUANDO SI" 

620 DATA "SCRIVE E' MOLTO " 

625 DATA"DIFFICI LE ACCORGERSI" 
630 DATA"DEI NOSTRI ERRORI DI" 
635 DATA"CALLIGRAFIA." 

640 DATA "QUESTO PROGRAMMA SI" 
645 DATA"PREFIGGE LA META" 

650 DATA "DI DARE UNA LETTURA" 
655 DATA"EXTRA VELOCE{ 9 SPAZI) 

M 

60000 POKE198,0:POKE808,1 1 2 
60010 PRINT"{CLR}" 

60020 PRINT"{BLK}" 

60030 DATA"FINE" 
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Quante persone non desiderebbero trovare una 
vena aurifera nel giardino di casa e poter di¬ 
ventare miliardari con il solo aiuto di una van¬ 
ga e di un po' di dinamite?!? 

Perché non aiutare il simpatico Giorgino nella 
sua fortunata e redditizia impresa? 

Appena partito, il programma visualizzerà lo 
spaccato del giardino del simpatico Giorgino 
che, con l'aiuto della dinamite (la quale viene 
fatta scoppiare premendo il tasto 'fire'), deve 
farsi strada nel fango e raggiungere i lingotti, 
i quali si trovano sparsi nel terreno. 
Sfortunatamente per il povero Giorgino il valo¬ 
re dell'oro diminuisce velocemente e, quando 
il suo valore raggiunge lo zero (la quotazione 
iniziale è di IO $) Giorgino morirà dalla dispe¬ 
razione poiché tutto l'oro finora raccolto non 
vale più nulla (il valore corrente dell'oro è vi- 

ìou CLR:S = 0 :C = 1 u : K=4 : L=0:w=U 
ÌIU PRINT"tCLKj" 

1 I 2 GOSUBbOU 

120 POKE3bò7b,b 

1 jO GoSUBòOU 

1j 2 z = 7 71 2:FB=U:Y=2bO 

UO PoKbZ ,32 

1 ->u 1 FJ 1 THEN Z = Z+-2 : IFPEEK(Z) =102 
ThENZ=Z-2z 

loU 1FPEEK(Z)= JbTHENZ=*Z-22 
ì /U IFJ2THEN Z = Z- 1 : 1FPEEK (Z ) » ! 02T 
HENZ=Z+1 

1 oO IFPEEK ( Z ) = 3bT»iEN**Z + I 

1*0 1FJ3THENZ=Z-2z:IFPEEK(Z)- 1 0 2 
ORZ<7bòUTHENZ=Z+22 
2uO IFPbEK (Z) =bbTHENZ=Z+2z 
210 1F J OTHENZ=Z+ I :IFPEEK(Z) = I02T 
HENZ=Z-1 

2 1 2 IFPEEK(Z)»JbTHENZ«Z- 1 

2 20 IFPEEK iZ) = b 1 THENS*S+ I :GOSUBb 
OuO 

2 z2 IFPEEK(Z)= ttJThENG0SUU4UUU 
2 Z 4 IFPEEK {<*) = 4 ZTliENGOoU D 30U0 
2 JU IFFBTHENGOSUbbOUU iGOóUtioUOO 
240 PKlNT"(HOME){ ZU GIU'j(RVBjO 
Ru (OFF)" ;S;TAB(1 0) " (RVS]VaL 
ORE (OFF j " ;C 
2-jO POKEZ e ( j0 
2 o U iFC=<0THENGoSUD9UU0 
2/0 DD = 3 71 b 4 : P1 = b 71 b 1 : Pt- «571 b 2 


sua lizzato nella parte bassa dello schermo, ac¬ 
canto al numero di lingotti raccolti). 

Per evitare ciò Giorgino dovrà portare l'oro rac¬ 
colto in banca prima che perda valore. 

Al momento dell'incasso il numero dei lingotti 
d'oro raccolti dal simpatico Giorgino sarà mol¬ 
tiplicato per il valore corrente dell'oro stesso. 
La somma ottenuta sarà aggiunta al patrimo¬ 
nio di Giorgino, il quale è mostrato vicino alla 
banca. 

Questa impresa, però, non è certo priva di pe¬ 
ricoli, perché in taluni punti il terreno frana fa¬ 
cilmente e ottura i passaggi. 

Se malcapitatamente il povero Giorgino si tro¬ 
vasse proprio dove sta per franare del fango 
(ciò non è percettibile) verrà funestamente sot¬ 
terrato e perderà una delle sue cinque vite. 


2 o0 GOSUBbUU 
2 JU GOTO 140 
3J0 REM 

jIO PRiNT"(GIU 1 j( 3 DEBjIKVSjCOR 
SA ALL'ORO!tOFF j" 

JZO PRiNT:PRINT:PRINT"( 4 DES) 
iRVSiZtOFFJ = MINATORE" 

3bU PRINT:PRINT"{ 4 DES j (KVS jG 
(OFFi = LINGOTTI" 

3i0 PRINT:PRINT"( 4 DESjlRVSj* 
(OFFj = MINATORE MORTO" 

3jO PRINT"( 4 UESJ(RVS)(< + >] 
(OFFj = TERRA" 

3oU PRINT: PRINT" ( 4 DESj(RVS)S 
(OFF) = BANCA" 

3^2 PRINT:PRINT:PRINT"(DES1USARE 
'FIRE* PER FhR( 2 DRb)SCOPP 
IARE UNA CARICA" 

3/0 PRiNT"(HOME)( zO GIU'j(RVS) 

( b DES)PREMERE UN TASTO" 

3c.O A$ = "" : GETA$ : IF a S = " "THEN3 d 0 
3.;0 PRINT" (CLK)" 

4^0 RETURN 

b*U POKEDD,127:P=PEEKvP2)ANDlzb 

b i 0 J U = - ( P = 0 ) 

b~u POKEDD, 2bb:P=PEEK(Pi) 

bbu J1=-v(PANDb)= U) 

b** 0 J 2 = - ( (PANDI b) =0) 

b ‘>0 J 3 = - ( ( PANO 4 ) = U ) 

boU Fb=-((PAND32)=0) 
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570 RETURN 
80 0 REi-1 
810 X=7702 
82 0 FORI = 1 TU22 
8 3o POKEX, 35' 

840 X=X+1 

8a0 NKXTI 

860 POKE7712,32 

870 X=7724 

880 FORX=lTOl8 

890 FORJ-1T02 

900 PoKLX,35 

910 X=X-1 

920 NEXTJ 

9j0 X=X+24 

940 NEXTI 

950 X=8U9b 

9bO FORI=1TG22 

970 POKEX,35 

9tì0 X=X + 1 

980 NEXTI 

lOÒO FORI=ITO180 

1010 X=INTIRND(1)*3741+7724 

1O12 1FPEEK(X)=35THENl010 

lui 4 IFPEEK(X)=102THEN1010 

1020 POKEX,102 

1030 NEXTI 

1040 FORI=7724T08097 
1050 IFPEEK(I)=102THEN1070 
1052 IF PEEK(I)= 3 5THEN1070 
1060 POKEI,8l 
1o7o NEXTI 

lobO POKE7b89,35:POKE7b92,35:POK 
E7691,83 
1090 GOSUB2000 
l^Oo RETURN 
2000 REM 

2002 IFM<0THEN950u 
2010 X=7680 
2oz0 FORI=0TO4 
20 j 0 POKEX,32 
2040 X=X+1 
2050 NEXTI 
2060 X=7bb0 
2o70 FORI = 1 TOM 
2080 POKEX,90 
2080 X=X+1 
2100 NEXTI 
2110 C=1O :S = 0 
2120 8 = 771 2 

2130 PRINT"{HOMEJt 20 GIU'} 

1 9 SPAZI]" 

2140 FORI = bl42T081 04 :POKEI,32 : NE 
XT 

2150 IFM=0THENPOKE7b80,32 

2zOU ReTURN 

3000 REM 

3010 S = S+31 

3200 RETURN 

4000 REM 

4002 FORI=7b84TO7701:POKEI.32:NE 
XT 

4010 FORJ = 1 Tu3 


4020 FORI=15TOOSTEP-1 
4030 POKEJb87B,I 
4O40 POKE3b87b,230 
40 50 FORT=1TO10 :NEXT 
40b0 NEXTI 
4o70 POKE3bb7b,0 
4080 NEXTJ 

4090 01=C:IFCl=0THENC1=1 
4100 N=3*Cl+N 

4110 PRINT" (HOME J {RVS} tn'HT} 

i 13 UES}$";STR8(W) ; " . 00 
{RED]" 

4120 POKE7691,83 
4130 M=M-1 
4140 GOEUB20Ù0 
4150 RETURN 
5000 REM 

5002'IFC<=0THEN90U0 

5004 IFPEEKIZ-1)=3dTHEN5012 

50l0 POKEZ-1,Bb 

5012 IFPEEK(Z+l)=35THEN5022 

5020 POKEZ+1,8b 

5022 IFPEEK(Z+22)=J5THEN5032 

5030 PGKEZ+22,bb 

5o32 IFPEEK(Z-22)= 35THEN5100 

5040 POKEZ-22,8b 

5100 POKE3bb77,220 

5110 FORL=l5TOOSTEP-1 

5120 POKE3b878,L 

5130 FORT=1T075:NEXT 

5 l 4 0 NEX'fL 

5150 POKE3b877,0:POKE36878,0 

5152 IFPEEK(Z-1)= J 5THEN01 5b 

5154 POKEZ-1,32 

515b IFPEEK(Z+l)=35THEN3lbO 

515b POKEZ+1,32 

51bo IFPEEK(Z+Z2)=35THEN51 64 

51b2 POKEZ+ 22,32 

51b4 IFPEEK(Z-22)=35THEN51 70 

51bb POKEZ-22,32 

51 70 C=C-1 :POKE813b,32:POKEbl 39 , 
3*:POKEZ,90 
5300 RETURN 
bOOO REM 

bolo POKE3b878,1 5 
b02U FORE =1OTO1STEP- 1 
00 j 0 POKE3ob7b,L*25 
bo 4 0 NBXTL 
bO30 FORL=1TOl0 
bObO POKE3bb7b,L*25 
b070 NEXTL 

6080 POKEJbb 7b,0:POKE3b87b,0 
blOO ReTURN 
8000 REM 

8010 X = INT(RNU(1)* 1) + 10 

8020 FORI=1TOX 

8030 V=INT(RND(1 ) *4l 8)+7702 

8032 IFPEEK(V)=35THEN8030 

8034 IFPEEK(V)=9oTHENGOSUbbbOO:G 

OTO132 

803o IFPEEK(V)=blTHENo030 
8 o4U POKEV,102 
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bObJ NEXTI 
blOU RETURN 
ÒbUO REM 

tìolU POKEJbo7b,lb 
òb2u FORI*2bbTOl2òSTEP-4 
bb3 J POKE3b ò74,1 
bb^.U FORT* 1 T0 3U : NEXT 
bbbU NEXTI 

bobu POKE3bb7b , 0 : POKE3bb/4 , u 

tibVO M=M-1 

bbbO PoKEZ,42 

bbb2 S1=S 

bb9U GOSUB2000 

bbUU RETURN 

yuOu REM 

9UU4 1FY< 1 28THENPOKE2 , 32 : GubUB^O 


OU: GOTO 13 2 

9UÌU PR1NT"tHUME}ì 2 1 CiU'J 

i 2 DEE jlRVS j E 1 ORO NON VALE 
NIENTE!"; 

9u20 PUKEJbb 7b, 1 b:POKEJod7b, Y 
9 ujJ FORT*1TO 3U:NEXT 
9u4U Y = Y - 4 

90bu POKE3bb7b,U:POKE3ob7b,0 
yluU RETURN 
9 d0u REM 

9b^U PK1NT"(HOME)i 2l GiU'jtmHT} 
{RVSHUES JGIOCHI ANCORA (E = 
Si)tOFFi(RED}" 

9b4o A$» M ":GETA$: IFA$ = ""THENy b 4 U 
9bbU 1F A$ s "S"THENIU U 

yyyy end 


Jumping Jack 



Jack è un simpatico muratore che si è avvedu¬ 
to, mentre era in cima ad una impalcatura, 
di averla costruita pessimamente, ed ora ten¬ 
ta disperatamente di tornare a terra; infatti 
queste impalcature non sono molto resistenti 
e ne crollano alcuni pezzi da ogni parte. 

Per aiutare Jack a saltare le voragini che si for¬ 
mano sulle travi è necesario premere la barra 


0 M= 3:T=1b0 :D = b: X s 2b:P=b1rPOKEbb 
,1bO:POKEbo,29 :S=3bb7b:POKnJbo 
7b,1b:GOTO10 012 

1 C = 27 : F *>= b : FORI=7bòOTObltib:POKE 
1,b9 2 NEXT 

2 FORI=/7U2TO/723:POKEI,b3:NEXT: 
Fo Ki-7 b!2TO/OJJ:POKEI,bJ:NEXT: 
FORl=7yuUTo7y21:POKEI,b3:NEXT 

3 POKE36b79 ,C:FORI=dU 32TOÒUb3 : PO 
KEI,b3: NEXT: FORI =d 1 42YOo1 b J : PO 
KEI,b3:NEXT 

4 FORI = 3b4UUTOJbbb4 + ^I :POKEI,4 :N 
EXT 

b FORI = 3b4òbTUJob1U * 21 :POKEI, Ft: 
NEXT 

b FORI = Jb b7 bTO Jttbytt + 2 I : Pur\Ei , F'i : 
NeXT 


spaziatrice. 

Se si premerà la barra al momento giusto Jack 
salterà la buca ed atterrerà salvo dall'altra par¬ 
te. 

Se invece il povero Jack cercerà di camminare 
su di un buco, cadrà al suolo. Se Jack riuscirà 
ad arrivare sulla terra ferma, dovrà vedersela 
con un'altra delle sue instabili impalcature. 


7 FORI = 3ò 70òTu Jò/JO + <. 1 : POKEI, Fi : 
NEXT 

ò FORI = jò b1bTOjbb4 0 + 21 :PoKeX,F i: 
NEXT:GOSUb!UU2u: FORI * I TU 1UUU:N 
EXT 

9 1=7790 

lu IFI/2=INT( 1/2 ;THENPOKEI-1,b9: 
GuSUBl1u 

1 1 IF1 / 2 = I NT ( I / 2 ) Tt IeN PO KEI ,bb:FO 
RJ = 1 T*OT : NEXT : GOTO 1 4 
1 J POKEI-1 , b9: POKEI , bb : FORJ =* 1 TOT 
:NEXT:B = 7o 12:GOSUBblO 
ì 4 1FPEEK (1 97; = j2THENGvji>Ub2U 
1b IFPEEK(1 + 22) = b4TTJENPOKEl, b9 :G 
OTO 3 0 

lb IFPEEK ( 1 + 2z) = oUTilEN DUO 

17 1 = 1 + 1: IF1 > 7 tì 1 1TH ENI =/ 7 9 0 :POKE 
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7bl1,s9 
1 b GOTO 1 0 

20 1 = 1-21 : POKE1+2l ,39 

21 IFPEEK ( 1 + 22) <> 590RPEEK H + 44 ) < 

> 33THENSC=SC+X:POKEI-zz,P:GOS 
Uri 112:PUKEl-22,39 

23 POKEX,35 :FORJ = 1 TOT:NEXT:1=1+2 
3:1FI > / b 1 1 THENI=7790 : POKE761 1 
,39 

24 POKE77b9, 39 :POKE 77 90,99 

25 FOKJ = 1 TOT:NEXT:POKEX- 23,b9 : PO 
KEi,bb:RETURN 

30 1 = 7 b 9 b 

31 IFx/2=1 NT (I/Z) THENPOKEX +1 , b9: 
GOSUBl10 

32 XFX/2=1NT(1/2)THENPOKEI,bb:FO 
RJ =I TOT :NEXT: GOTO 3 4 

33 POKEI+I,b9:POKEX,3/:FoRJ=lTOT 
:NEXT:B=79UO:GOSUB3l0 

34 IFPEEK(197)=32THENGOSUB40 

3b XFPEEK(1+22)=34THENPOKEI,b9:G 
OTObU 

3d IFPEEK(1+22)=o 0THEN30U 
37 1 = 1-1 :IFI< 7b7 tìTHENI = 7 b9b:POKE 
'/Ulti, 59 
3ò GOTO31 

40 1 = 1-23:POKEI + 2j, 59 

41 IFPEeK U + 22)O590RPEEK(1 + 44) < 

> 33THENSC=SC+X:POKEX-2z,P:GOS 
UBI 12 :POKEX-22,59 

43 POKEX,38:FOKJ = 1 TOT:NEXT:1 = 1 + 2 
1 :XFx< Iti /bTHENI=7b9s:POKR/87b 
, 39 

44 POKEVbbb,b9:POKE7853,b9 

4b FOKJ =1 TOT:NEXT:POKEi-21,b9:PO 
KEI,bb:RETURN 

30 I=bO10 

31 XFI/2 = INT(I/2)THENPOKEi-l ,39: 
GOSUB110 

5z XF1/2=XNT(1/2)THENPOKEI,33:FO 
RJ = 1 TOT:NEXT: GOTO b4 

53 POKEI-1,39:POKEX,5b:FORJ=lTOT 
:NEXT:tì=b032:GOSUBbl0 

54 XFPEEKil 97)=32THENGOSUbbO 

bb IFPEEK(1+22)=34THENPOKEX,39:G 
OTO70 

bb IFPEEK(1+22)=bÙTHEN3Ù0 
37 1 = 1 + 1 :XFx>b031THENI = ó010 :POKE 
boxi,39 
3t> GOTO31 

bu I = I- 21 :POKEI + 21 ,39 :1FPEEK(I)< 
>39 THeNSC=SC+300 

61 IFPEEK (1 + 22) O390RPEEK 11 + 44) < 

> 33THENSG=SC+X:POKEI-2z,P:GOS 
Uril12:POKEI-22,39 

b3 POKEI,b 3 :FORJ = 1 TOT: NExT: I=I + 2 
3 :IFI>6031THENI = bOl0 :POKEb031 
,39 

64 POKEÒ00 9,59:POKEbU 1 0, b9 
bb FORJ=lTOT:NEXT:POKEI-23,59:PO 
KEI,55:RETURN 
70 I=bl40 


71 IFI/2=INT(I/2)THENPOKEI+1,b9: 
GOSUril10 

72 IF1/2=1NT(1/2)THENPOKEI,bb:FO 
RJ = 1 TOT:NEXT: GOTO74 

73 POKEI + 1,39 :POKEI,37 :FORJ = 1 TOT 
:NEXT:B= ò142:GOSUBbl0 

74 XFPEEK(197)=3zTHENGOSUtìbO 

73 IFPEEK(1+22)=54THENPOKEI,39:G 
OTOlOO 

76 IFPEEK(I+2Z)=b0THEN300 

77 1 = 1-1 :1FI< b12ÙTHENI=bl40:POKE 
6120,39 

Iti GOTO 71 

bu 1=1-23:POKEI+23,39 
bl IFPEEK (1 + 22) OD90RPEEK (1 + 44) < 
>53THENSC=SC+X:POKEi-22,P:GOS 
UB I 12 :POKEi-2z,39 
b3 POKEI,3b:FORJ = 1 TOT:NEXT:1=1+2 
1 :lFI<bl2UTHENx = ol40:POKEbl2u 
,39 

b4 POKEbU 9b,39 :POKEo097,39 
63 FORJ = 1 TOT:NEXT:POKEI-21,39:PO 
KEI, Jti : RETURN 

100 P=P+1:IFP=b4THENP=61 

101 D=D-1:T=T-5u 

102 X=X + 3u:xFX>123 THeNa = 2 3 :D = b:T 
=13Ù:C=27:F%=3 

103 IFX= 7bTHENC=232:F%=0 
lu4 IFX=123THENC=b:Fó=/ 
lUb GOTO2 

1 10 PoKES,1 4 U:FOKY=1TOI0 :NEXT:PO 
KES,0:Rt.TUkN 

1 1 1 POKES+1 , 1 9u : FORY=1T023 : NriXT: 
POKES+1,0:RETURN 

1 1 2 FOi<0 = 1 TOl 3: POKES , 200+0 :NEXTO 
:POKES,0:RETURN 

1 13 FOKO = zOTOOSTEP-1 :POKES,230+0 
:FORY=1Tozb:NEXTY,0 :POKeS,0 : 
RETURN 

5u0 GOSUril13:M=M-1 :IFw=0THEN302 

501 P=bl:X=23:D=b:C=z7:T=l50:F*= 
5:POKEI,39 : GOTO2 

502 POKE3bbb9,240 :PR1NTCHR$(147) 
;SPC(24bj;"GAME OVER!":PRINT 
:PKxNT"1 3 SPAZI)PUNTEGGIO = 
" ;SC 

503 PRINT:PRINT"l 7 SPAZIjANCORA 

5U4 K=PEEK(197): IFK=J20RK = b4THEN 
50* 

50 5 1FK=41THENRUN 
50b END 

51 U IFINT(RND(1)*D)+1<>1THENRKTU 

• Rw 

511 L=INT(RNDil) *21)+1 :IFL=2UORL 
= 1THENSi 1 

512 POKEtì+L,bU:G0EU611 1 : RETURN 
IGUUU DATA255,12S,bo # òb # 3b,5b,24 

f 255 

10002 DATÀbb , 1 2b , bb , ob , bb,1 2b , bo 

, Db 

I 10003 DATA12,b,13,b2,44,12,16,33 
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1 000* DATA24 , ì b , 24,2 4,24 , 1 6 ,1 6,2 
4 ' 

1 U0U5 DATA24 , b , 2*, 24, 2 4 , Ò , d , 24 
1 OUOu DATA24,d,oo,b2,^o,24,JO,bb 

luUUV DATAI),0,0,0,0,0,0,0 
luOUfa DATAI 2 9 , b t>,bto, bb,9b,34, 34, 
34 

1OOUb DATA27,10,27,17,27/0,0,0 
luOlO DATASI,10,11,9,11,0,0,0 

1001 1 DATAb 1 ,74,91,d1 ,91,0,0,0 
1 uOl 2 kESTORE: FORI = 7bb2T07b 7 9 »RE 
ADA:POKE1,A :NEAT 


1 0 0 i b POKEJbòob, 2bb 
lOOlb GOTO 1 

1 uOzu FURI = /d32T07d9bETEP22: POKE 
1,54:NEXT:FORI s 790lTOòOl1S 
TEP22 : POKEI , 54:NEXT 
1 00^1 FORI = ò0b2TOttl 4USTEP22 : POKE 
I,d 4:NEXT:FORI=Jtibb2TOittb1 
bSTEP22:POKbl,ò:NEXT 
1 uOzic FORI = ->b o ^ 1 T03b 7 31 STEP22 : PO 
KEI,b:NEXT:FORI-3B7 7 2TO3db 
oOETbP*.-: PORLI , o : NEXT 
1 00^.j PoKEbl 4 i, b4:POKEol b b, j4: PO 
KlJÒ oo j, o :Po K E j ò b b b,u:RETU 
Rivi 


Graph 



o *ibN 


Avete bisogno di rappresentare graficamente 
un gruppo di dati, per rilevare le relazioni che 
intercorrono fra di essi con un semplice colpo 
d’occhio? Allora 1 2 3 4 Graph' fa al vostro caso! Il 
programma, una volta lanciato, vi richiede il 
massimo valore che intendete rappresentare 
(numero positivo); quindi passa a tracciare due 
assi sullo schermo (la scala è di volta in volta 


1 REM *MMMi**É*#Éi»*»#**tt 

2 REM * GRAPH * 

3 REM M#É##*É#****M*tè*M** 

5 LKT *-2t EUT q-20: LET t-23 
10 PRINT AT J,0| PAPER 2; INK 6)" 

GRAPH " 

20 PRINT AT 6,0,‘"Qual e' il masalmo 
valore che intendi rappreaent 
are ?” 

30 INPUT max: IF max<0 THEN 
GO TO 30 

33 PRINT '"Massimo Valora • "jinax 
35 LET z*l8/max 

40 PRINT ''"Puoi inserire al maaaim 
o 36 numeri (solo poaitivll) 

. Cerca di rispettata il 

limite massimo che tu atasao h 

ai posto." 


adeguata al massimo valore da voi imposta¬ 
to). A questo punto potrete inserire direttamen¬ 
te da tastiera fino a 36 numeri (positivi), ed 
il programma ne realizzerà la rappresentazio¬ 
ne grafica. Inserite come fosse un dato il nu¬ 
mero -2 per bloccare il programma, o il nu¬ 
mero -3 per saltare il disegno in relazione ad 
un dato punto dell'asse delle ascisse. 


50 PRINT '"Inserisci "; PAPER 6) 

INK 2;"-2"; PAPER 7; INK 0;" pe 
r finire" 

55 PRINT '"Inserisci "j PAPER 6; 

INK 2;"-3"; PAPER 7j INK 0|" pa 
r lasciare uno H '"apaaio tra un 
dato e un altro" 

60 PAUSE 400: Ci,ti 

90 PRINT AT 1 , 0 j ina x | AT 10,0jraax/2 
100 PLOT 16,Iti DRAW 0,144 
110 PLOT 10,Iti DKAW 144,0 
130 FOR n-24 TO 162 STEP 8 
140 PLOT n,16 : DRAW 0,-5 
150 PLOT 16,n: DRAW -5,0 
160 NEXT n 

255 PRINT AT 1,23 ;"Input:" 

260 FOR j*l TO 36 

270 INPUT a: BEEP .05,20 


30 
















275 

IF a>max THEN 

BEEP .8,-20: IP a 

330 

PLOT q,b 


>max THEN GO 

TO 2 70 

340 

LET d-b 

280 

IF aa-2 THEN 

STOP 

350 

LET x-4 

285 

IF a«-3 THEN 

LET x*x + 4 

3 70 

I.tCT q-q* 4 

290 

IF a--3 THEN 

GO TO 370 

380 

IF j-18 THEN GO 

295 

IF a< 0 THEN 

GO TO 270 

390 

NEXT j 

296 

FRINT AT s,t; 

a 

400 

STOP 

297 

LET S = s + 1 


500 

LET ■ •2 : LET t-2 7 




510 

RETURN 

300 

LET b- ( (a*z*8) + 1 6) 

600 

LET c • b - d 1 DRAW X 

320 

IF j>l THEN 

GO SUB 600 

61 0 

RETURN 


Per ricevere gli arretrati di 



Méj* 


'tj'J compilare il seguente tagliando: 



Compilare ed inviare in busta chiusa a: 
via Rosellini 12 - 20142 Milano - Tel. 02/6888228-683797-6880841-2-3 


Nome 


Cognome 

9 

Indirizzo . 


CAP _ Città _ Prov. _ 

Desidero ricevere i seguenti numeri arretrati di 

- Ann °- 

a L. 2.000 cad. per un totale di L.. a mezzo 


□ assegno allegato fi contanti allegati 
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A Milano, 

in via Mascheroni 14. 
la prima software 
lineria italiana 

Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novità. 
Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 

Dove? Alla Libreria JACKSON. 

La prima software - libreria italiana. 

A Milano, in via Mascheroni 14. 

Tel. 02-437385 

Vieni a trovarci: ti aspettiamo. 




